폴더가 존재하는지 확인하는 스크립트, 그렇지 않은 경우 exe 파일을 실행하십시오

Question

c : \ windows \ system32 \ foldername에있는 폴더를 찾으려면이 스크립트가 필요합니다.

이 폴더가 있으면 스크립트를 중지하고 싶습니다. 폴더가 존재하지 않으면 스크립트에서 서버의 .exe 파일을 실행하여 소프트웨어를 설치합니다. 즉

\ servername \ folder \ 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