Function Delete_TempFile()
On Error Resume Next
Dim tmp
tmp = Dir$(App.Path & "\*.tmp")Dim fs As New Scripting.FileSystemObject
Dim File As Scripting.File
Do Until tmp = ""
Set File = fs.GetFile(App.Path & "\" & tmp)
File.Delete
tmp = Dir
Loop
End Function以上是一个删除当前目录下生成的temp文件的函数,你可以在你想要执行删除的事件中引用此函数。
On Error Resume Next
Dim tmp
tmp = Dir$(App.Path & "\*.tmp")Dim fs As New Scripting.FileSystemObject
Dim File As Scripting.File
Do Until tmp = ""
Set File = fs.GetFile(App.Path & "\" & tmp)
File.Delete
tmp = Dir
Loop
End Function以上是一个删除当前目录下生成的temp文件的函数,你可以在你想要执行删除的事件中引用此函数。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货