-
09-06-2019 - |
题
使用 VBA,我怎样才能:
- 测试文件是否存在,如果存在,
- 删除它?
解决方案
1.) 检查 这里. 。基本上这样做:
Function FileExists(ByVal FileToTest As String) As Boolean
FileExists = (Dir(FileToTest) <> "")
End Function
我将让您弄清楚所需的各种错误处理,但这些是我正在考虑的错误处理事项之一:
- 检查是否传递了空字符串。
- 检查文件名/路径中是否包含非法字符的字符串
2.) 如何删除文件。看着 这。 基本上使用 Kill 命令,但您需要允许文件只读的可能性。这是一个适合您的功能:
Sub DeleteFile(ByVal FileToDelete As String)
If FileExists(FileToDelete) Then 'See above
' First remove readonly attribute, if set
SetAttr FileToDelete, vbNormal
' Then delete the file
Kill FileToDelete
End If
End Sub
再次,我将把错误处理留给你,这些是我会考虑的事情:
目录与目录的行为是否应该有所不同?一份文件?用户是否必须明确表明他们想要删除目录?
您是否希望代码自动重置只读属性,或者是否应该向用户提供某种只读属性已设置的指示?
编辑:将此答案标记为社区维基,以便任何人都可以根据需要对其进行修改。
其他提示
对 Brettski 的答案进行编码的另一种方法(我完全同意)可能是
With New FileSystemObject
If .FileExists(yourFilePath) Then
.DeleteFile yourFilepath
End If
End With
效果相同,但变量声明更少(好吧,根本没有)。
FileSystemObject 是一个非常有用的工具,非常值得使用。除此之外,对于文本文件写入,它有时实际上比传统替代方案更快,这可能会让一些人感到惊讶。(至少根据我的经验,YMMV)。
我可能会因此而受到批评,但如果你只是要删除它,那么测试它的存在又有什么意义呢?我最讨厌的事情之一是应用程序抛出一个错误对话框,其中包含“无法删除文件,它不存在!”之类的内容。
On Error Resume Next
aFile = "c:\file_to_delete.txt"
Kill aFile
On Error Goto 0
return Len(Dir$(aFile)) > 0 ' Make sure it actually got deleted.
如果该文件一开始就不存在,任务就完成了!
以下可用于测试文件是否存在,然后将其删除。
Dim aFile As String
aFile = "c:\file_to_delete.txt"
If Len(Dir$(aFile)) > 0 Then
Kill aFile
End If
在VB中通常是 Dir
找到文件的目录。如果它不为空则它存在然后使用 Kill
删除该文件。
test = Dir(Filename)
If Not test = "" Then
Kill (Filename)
End If
设置对 Scripting.Runtime 库的引用 然后使用 FileSystemObject:
Dim fso as New FileSystemObject, aFile as File
if (fso.FileExists("PathToFile")) then
aFile = fso.GetFile("PathToFile")
aFile.Delete
End if
这里有一个提示:您是否正在重复使用该文件名,或者计划执行需要立即删除的操作?
不?
您可以让 VBA 从命令提示符处触发命令 DEL "C: EMP\scratchpad.txt" /F 异步地 使用 VBA.Shell:
Shell "DEL " & chr(34) & strPath & chr(34) & " /F ", vbHide
请注意文件名周围的双引号(ASCII 字符 34):我假设您有一个网络路径或包含空格的长文件名。
如果文件很大,或者网络连接速度较慢,则“即发即弃”是最佳选择。当然,你永远无法知道这是否有效。但您会立即恢复 VBA,有时这比等待网络更好。
您可以设置对 Scripting.Runtime 库的引用,然后使用 FileSystemObject。它有一个DeleteFile 方法和一个FileExists 方法。
请参阅 MSDN 文章 这里.