Saving lists...

[Sacofjoea]

I have a program that allows a user to navigate through folders to get to the files they are looking for...this program displays/plays the files, how can I save the directory they leave in? like once they quit the program, the current directory is the one that will be open next time they load the program...

[Iain17]

Option Explicit

Private Sub Form_Load()
    Dim stCurDir As String
    Dim stIniFile As String
    
    stIniFile = App.Path & "\myIni.Ini"
    
    'make sure the file exists
    If Dir$(stIniFile) <> "" Then
      Open stIniFile For Input As #1
      
      Line Input #1, stCurDir
    
      ChDir (stCurDir)
    
      Close #1
    End If
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim stIniFile As String
    
    stIniFile = App.Path & "\myIni.Ini"
    
    Open stIniFile For Output As #1
    
    Print #1, CurDir
    
    Close #1
    
    
End Sub

[Sacofjoea]

input past end of file......error...

[Sacofjoea]

nevermind...hah

[Iain17]

Works on mine.

[Sacofjoea]

Do I post it in a module, cause its not writing to the ini file...

[Sacofjoea]

there, got it...it was being a *****

[Iain17]

Works fine on mine.

This new and improved code should cut out most errors.

Option Explicit

Private Sub Form_Load()
    Dim stCurDir As String
    Dim stIniFile As String
    
    stIniFile = App.Path & "\myIni.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

Private Sub Form_Unload(Cancel As Integer)
    Dim stIniFile As String
    
    stIniFile = App.Path & "\myIni.Ini"
    
    Open stIniFile For Output As #1
    
    Print #1, CurDir
    
    Close #1
    
    
End Sub

I think you can probaly use some API like get setting etc, but i don't know how.

[Sacofjoea]

it made the list, but made the wrong directory...

[Sacofjoea]

does the form unload getting read? do i need to have it any place special...?

[Sacofjoea]

It keeps writing the directory the program is currently in...

[Sacofjoea]

fixed it, thanks

[PsyVision]

I have a file that will access .ini files and code into them, you could just save it in a single file, or you could save it in the registry. then just put code in to open the file/reg.