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

【问题标题】：Script to check if folder exists, if not, run a exe file检查文件夹是否存在的脚本，如果不存在，运行exe文件
【发布时间】：2012-08-13 09:15:48
【问题描述】：

我需要这个脚本来查找文件夹

c:\windows\system32\文件夹名。

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

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

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

有什么建议吗？

【问题讨论】：

标签： vba vb6 vbscript

【解决方案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

【讨论】：