Sub DeleteFile()
Dim fs As Object
Dim filePath As String
' 文件路径
filePath = "C:\Path\To\Your\File.txt"
' 创建FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
' 检查文件是否存在
If fs.FileExists(filePath) Then
' 如果文件存在,则删除
fs.DeleteFile filePath
MsgBox "File deleted successfully!"
Else
MsgBox "File does not exist!"
End If
End Sub
在这个示例中,DeleteFile方法用于删除文件。参数是文件的路径。
确保在使用这个代码之前替换filePath为你实际的文件路径。同时,小心谨慎地处理文件删除操作,以防止误操作。
请注意,删除文件是不可逆操作,文件将被永久删除。确保在执行此类操作之前备份重要数据,并谨慎处理权限以避免误删除。
转载请注明出处:http://www.zyzy.cn/article/detail/6701/VBA