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 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

會產生錯誤 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/...vetofile.asp