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

Question

我需要这个脚本来查找

中的文件夹

C：\ Windows \ System32下\文件夹

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

\服务器\文件夹\ software.exe。

c：\ windows \ system32 \ foldername中的文件夹会出现文件错误，但我只是想看看文件夹而不是它的内容。

请提出任何建议。？

Answer 1

您可以尝试以下脚本

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