VBScript不会移动一些文件

Question

我编写了一个VBScript，可以帮助我每次弄乱桌面时整理桌面。

它可以很好地根据应用程序的扩展名和名称移动我的文件和快捷方式。但是，我有几个应用程序快捷方式链接，只是不会移动。事实上，vbs脚本甚至不会用这个基本脚本看到它们

Set FSO = CreateObject("Scripting.FileSystemObject")    
dir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Set folder = FSO.GetFolder(dir)
Set files = folder.Files

For Each file in files
    MsgBox file.Name
Next

有问题的文件都是iTunes，VLC，Google Chrome和WinRar的快捷方式。

有什么我可以检查看看为什么vbs甚至不会看到这些文件？

Answer 1

您可以在桌面上看到的是两个文件夹的混合视图：

  

C：\用户\ YourUsername \桌面

     

C：\用户\公共\桌面

公共地点通常是一个地方，在应用安装期间创建快捷方式，所以所有用户都拥有它们。在您的脚本中您只查找YourUserName \ Desktop中的文件，这就是脚本看不到这些快捷方式的原因。