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