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:\Users\YourUsername\Desktop

C:\Users\Public\Desktop

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

VBScript 不会移动某些文件

VBScript won't move some files

windows

vbscript

file

move