Question

我已经搜索并尝试了各种方法使用VBS删除桌面上的特定文件。

~~我的代码永远不会出错~~它只是不删除文件。无论是Delete.txt测试文件还是我想删除的.url和.website文件。以下是经过一些帮助后的修订代码。

Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
DesktopPath = Shell.SpecialFolders("Desktop")
A = DesktopPath & "\Kronos Workforce Central(R).url" 
FSO.DeleteFile A
B = DesktopPath & "\Kronos Workforce Central(R).website"
FSO.DeleteFile B

行：6

Char：1

错误：找不到文件

代码：800A0035

来源：Microsoft VBScript运行时错误

我的电脑不知道FSO是什么？还有另一种方法可以从桌面上删除已知文件吗？

Answer 1

不是答案，而是“没有引用FSO方法的args”的证据：

>> s = DesktopPath & "\Kronos Workforce Central(R).url"
>> ss = qq(s)
>> WScript.Echo s
>> WScript.Echo ss
>> WScript.Echo FSO.FileExists(s)
>> WScript.Echo FSO.FileExists(ss)
>>
C:\Documents and Settings\eh\Desktop\Kronos Workforce Central(R).url
"C:\Documents and Settings\eh\Desktop\Kronos Workforce Central(R).url"
-1
0

以上内容应证明文件C:\Documents and Settings\eh\Desktop\Kronos Workforce Central(R).url存在。这样：

>> WScript.Echo FSO.FileExists(s)
>> FSO.DeleteFile s
>> WScript.Echo FSO.FileExists(s)
>>
-1
0
>> FSO.DeleteFile s
>>
Error Number:       53
Error Description:  File not found

证明FSO.DeleteFile <FileSpecWithNoSpuriousQuotes>是删除（现有的）文件的正确方法，并且在尝试删除不存在的文件时会出现“找不到文件”错误。

如果.DeleteFile'无法正常运行，那么你有一个“On Error Resume Next”激活 - 总是一个坏主意。如果你没有使用OERN并且没有错误，那么.DeleteFile删除了一个文件 - 也许你看错了桌面？

如何为使用VBS的所有用户删除桌面文件？

1 个答案: