怎样保存DriveList DirList FileList路径？
打开窗体显示上次的路径
修改后
例如Drive1="D:/"
Dir1="新建文件夹"
File1="Music"
在下次打开窗体时这三个列表显示本次的路径。
答得好加分！
我想就存在注册表中，能详细点举例吗？我想做个单文件的程序！
Private Sub Form_Load()
Dim ph As String
ph = GetSetting(App.Title, "Path", "Dir", App.Path)
Drive1.Drive = ph
Dir1.Path = ph
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Path", "Dir", Dir1.Path
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
只需保存DirList的内容即可，因为里面包含了驱动器和全路径信息。而FileList最好不要采用保存并读取的方式，因为这样做会只显示这个文件，同文件夹的其他文件显示不出来。
Dim ph As String
ph = GetSetting(App.Title, "Path", "Dir", App.Path)
Drive1.Drive = ph
Dir1.Path = ph
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Path", "Dir", Dir1.Path
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
只需保存DirList的内容即可，因为里面包含了驱动器和全路径信息。而FileList最好不要采用保存并读取的方式，因为这样做会只显示这个文件，同文件夹的其他文件显示不出来。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-03-23
把这几个数据存放在一个文件中，下次程序启动时读取即可
