尝试使用共享驱动器中的vb脚本删除文件

Question

尝试使用以下代码从共享驱动器使用vb脚本删除文件，但无法执行此操作。

Option Explicit

Dim filesys

Set filesys=Createobject("scripting.filesystemobject")

If filesys.FileExists("""G:\Data_Center\vb test\reports\test.pdf""") Then
filesys.DeleteFile"""G:\Data_Center\vb test\reports\test.pdf"""

End If

Answer 1

只要删除多余的引号，只要文件存在就可以正常工作......

Dim filesys

Set filesys = Createobject("scripting.filesystemobject")

If filesys.FileExists("G:\Data_Center\vb test\reports\test.pdf") Then
  filesys.DeleteFile "G:\Data_Center\vb test\reports\test.pdf"
End If

Set filesys = Nothing