Bad file name or numberVB Code:
Private Sub Form_Load() Dim strParts() As String, strLine As String Dim lngBC As Long, lngFC As Long Dim strFileName As String, strFileLocation As String, intFF As Integer strFileName = "ColorScheme.ini" strFileLocation = App.Path & "\" & strFileName If FileExists(strFileLocation) Then [hl]Open strFileLocation For Input As #intFF[/hl] Line Input #intFF, strLine strParts = Split(strLine, "|") lngBC = Val(strParts(0)) lngFC = Val(strParts(1)) Close #intFF End If End Sub




Reply With Quote