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

Question

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

非常感谢任何帮助或建议。

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

Answer 1

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

IF strSkanSou.FolderExists then

使用：

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

此外，我发现您使用字符串的前缀str和 object 的obj，这很棒，但是您可能希望使用strMyDocuments而不是objMyDocuments，因为这实际上是一个字符串而不是对象。