Bad file name or number
VB Code:
  1. Private Sub Form_Load()
  2.     Dim strParts() As String, strLine As String
  3.     Dim lngBC As Long, lngFC As Long
  4.     Dim strFileName As String, strFileLocation As String, intFF As Integer
  5.    
  6.     strFileName = "ColorScheme.ini"
  7.     strFileLocation = App.Path & "\" & strFileName
  8.    
  9.     If FileExists(strFileLocation) Then
  10.         [hl]Open strFileLocation For Input As #intFF[/hl]
  11.             Line Input #intFF, strLine
  12.                 strParts = Split(strLine, "|")
  13.                         lngBC = Val(strParts(0))
  14.                         lngFC = Val(strParts(1))
  15.                 Close #intFF
  16.     End If
  17. End Sub