引用 | 編輯
zsx123665
2012-11-22 13:21 |
樓主
▼ |
||
x0
Private Sub Form_Unload(Cancel As Integer)Cancel = 1 Call Do_Bye End Sub Private Sub Do_Bye() If Close_me = 1 Then Call Read_Or_Save("Save", App.Path & "iTextList.Tea") SetWindowLong Me.hWnd, GWL_WNDPROC, WinProc UnregisterHotKey Me.h .. 訪客只能看到部份內容,免費 加入會員 x0
|
引用 | 編輯
ebolaman
2012-11-22 23:12 |
1樓
▲ |
會產生錯誤 3004 - write to file failed.
因為省略掉函數 SaveToFile 的第二個參數,當檔案已經存在時,就會無法存檔 在 .SaveToFile 後面加上一個參數 2 即可 .SaveToFile FilePath, 2 比較好的做法是宣告一個 Enum Private Enum Enum_adSaveOptions SaveCreateNotExist = 1 SaveCreateOverWrite = 2 End Enum 使用上用 .SaveToFile FilePath, Enum_adSaveOptions.SaveCreateOverWrite 再來,最好是在使用完這個 IO 後,把它設為 Nothing,記憶體才能正確釋放 Set IO = Nothing 參考 : http://www.w3schools.com/ado/met_stream_savetofile.asp x1 |