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

仅当存在网络共享时，我想在文档中创建快捷方式。 我试图解决了很长一段时间，但我仍然有这个问题

如有任何帮助或建议，将不胜感激

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

---

你已经解决了大部分问题。您只需要创建一个

FileSystemObject

来检查文件夹是否存在。替换：

IF strSkanSou.FolderExists then

与：

另外，我看到您对字符串使用前缀

str

，对对象使用前缀

obj

，这很好，但是您可能希望使用

strMyDocuments

而不是

objMyDocuments

，因为这实际上是一个字符串而不是对象

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