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

Question

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

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

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

\服务器名\文件夹\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