7,763
社区成员
发帖
与我相关
我的任务
分享如何强行删除一个文件
我在做程序的时候，需要删除一个文件，可总是说该文件正在使用，请问有何种方法可以强行删除它？我做的代码如下
Dim fso As New FileSystemObject, fil As File, ts As TextStream
If Dir(App.Path & "\Incept\Cute.bak") <> "" Then
Set fil = fso.GetFile(App.Path & "\Incept\Cute.bak")
fil.Delete ‘在这后面有个参数，True和False 我都试过了，不行
End If
Dim fso As New FileSystemObject, fil As File, ts As TextStream
If Dir(App.Path & "\Incept\Cute.bak") <> "" Then
Set fil = fso.GetFile(App.Path & "\Incept\Cute.bak")
fil.Delete ‘在这后面有个参数，True和False 我都试过了，不行
End If
...全文
请发表友善的回复…
发表回复
yufenfeila 2003-08-20
- 打赏
- 举报
嗯，收藏
onlineboy 2003-08-20
- 打赏
- 举报
呵呵
这个函数有趣
收藏
这个函数有趣
收藏
since1990 2003-08-20
- 打赏
- 举报
up
Wang_xiaoni 2003-08-19
- 打赏
- 举报
用API MoveFileEx(ExistingFN, null, MOVEFILE_DELAY_UNTIL_REBOOT)
ExistingFN 为文件名称
MOVEFILE_DELAY_UNTIL_REBOOT 如果正在使用，则重起后删除
ExistingFN 为文件名称
MOVEFILE_DELAY_UNTIL_REBOOT 如果正在使用，则重起后删除
