引用 | 编辑
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 |