Private Sub Form_Load()
Dim stCurDir As String
Dim stIniFile As String

stIniFile = App.Path & "\list.ini"

'make sure the file exists
If Dir$(stIniFile) <> "" Then
Open stIniFile For Input As #1

Line Input #1, stCurDir

If Trim$(stCurDir) <> "" Then
If Dir$(stCurDir, vbDirectory) <> "" Then
ChDir (stCurDir)
End If
End If

Close #1
End If
End Sub

It wont open the .ini to get the set directory...
Why?