I am using this code
Public Function Get_Settings(filename As String) As Boolean
Dim recordlength As Integer
recordlength = LenB(Settings)
On Error GoTo erroropeningsettingsfile
Open filename For Random Access Read As #1 Len = recordlength
Get #1, 1, Settings
Close #1
Get_Settings = True
Exit Function
erroropeningsettingsfile:
Get_Settings = False
End Function
if the file doesn't exists supposedly an error will be occurred and the error handler will execute, the code doesn't do what it supposed to do. why does it create a text file?