vbscript - 如果单击某个文件，如何制作 vbs 脚本以将其移动到桌面？

Question

有一个文件夹，其中有一个文件，以及该文件的快捷方式。

我需要在同一文件夹中的 VBscript 将快捷方式移动到桌面。

如果您需要更多信息来帮助我，我会提供给您。

Answer 1

我测试了它，它对我有用......

Dim ObjFso 
Dim SourceLocation 
Dim DestinationLocation 
Dim FileName  

SourceLocation = "C:\REST-OF-PATH"
DestinationLocation = "%userprofile%\Desktop\" 
FileName = "FILENAME"

Set ObjFso = CreateObject("Scripting.FileSystemObject")  
ObjFso.MoveFile SourceLocation & "" & FileName, DestinationLocation & ""

复制这一切就行了...

然后替换REST-OF-PATH为路径的其余部分

并替换FILENAME为文件名