Dim oFSO,f1,WSH SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") On Error Resume Next Set oFSO=CreateObject("Scripting.FileSystemObject") oFSO.DeleteFile("C:\Users\Administrator\Desktop\1.txt") 复制代码
Dim oFSO,f1,WSH SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") On Error Resume Next Set oFSO=CreateObject("Scripting.FileSystemObject") oFSO.DeleteFile("C:\Users\Administrator\Desktop\1.txt")