Vba 用于检查文件夹是否存在的脚本，如果不存在，请运行exe文件

我需要此脚本在中查找文件夹

c:\windows\system32\foldername

如果此文件夹存在，则我希望脚本停止。如果文件夹不存在，则我希望脚本从服务器运行.exe文件以安装软件。即

\servername\folder\software.exe

c:\windows\system32\foldername中的文件夹中会有文件，但我查看它只是为了查看文件夹而不是其内容

---

有什么建议吗？

你可以试试下面的脚本

Option Explicit

Private Const Folder As String = "c:\windows\system32\foldername"
Private Const FileToRun As String = "\\servername\folder\software.exe"

Sub Run(ByVal sFile)
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, False
    Set shell = Nothing
End Sub

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

If Not fs.FolderExists(Folder) Then
   Run FileToRun
End If