2 回答

TA貢獻(xiàn)1851條經(jīng)驗(yàn) 獲得超5個(gè)贊
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的內(nèi)容即可,因?yàn)槔锩姘蓑?qū)動(dòng)器和全路徑信息。而FileList最好不要采用保存并讀取的方式,因?yàn)檫@樣做會只顯示這個(gè)文件,同文件夾的其他文件顯示不出來。

TA貢獻(xiàn)1786條經(jīng)驗(yàn) 獲得超13個(gè)贊
把這幾個(gè)數(shù)據(jù)存放在一個(gè)文件中,下次程序啟動(dòng)時(shí)讀取即可
添加回答
舉報(bào)