如果文件夹存在，则在 MyDocuments VBS 中创建此文件夹的快捷方式

【问题标题】：If folder exist create shortcut this folder in MyDocuments VBS如果文件夹存在，则在 MyDocuments VBS 中创建此文件夹的快捷方式
【发布时间】：2014-07-21 13:33:23
【问题描述】：

我只想在我的文档中创建一个快捷方式，前提是存在网络共享。我尝试解决了很长时间，但我仍然有这个问题。

任何帮助或建议将不胜感激。

Dim strSkanSou  
Dim objMyDocuments 

strSkanSou = "\\Network\Scan\%username%"

IF strSkanSou.FolderExists then

Set objShell = CreateObject("WScript.Shell") 
objMyDocuments = objShell.SpecialFolders("MyDocuments") 
Set objLink = objShell.CreateShortcut(objMyDocuments & "\Skaner.lnk")

objLink.Description = "Skaner"
objLink.TargetPath = strSkanSou
objLink.Save 


End If

【问题讨论】：

标签： vbscript shortcut

【解决方案1】：

您已经解决了大部分问题。您只需要创建一个FileSystemObject 来检查您的文件夹是否存在。替换：

IF strSkanSou.FolderExists then

与：

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strSkanSou) Then

另外，我看到您使用前缀 str 表示 string 和 obj 表示 object，这很好，但您可能想要使用 @ 987654326@ 而不是 objMyDocuments，因为这实际上是一个字符串而不是一个对象。

【讨论】：