VB скрипт для поиска файла

Question

Я запрашиваю некоторую помощь с простым VB-скриптом, который мне нужно развернуть, чтобы поймать несколько компьютеров, которые подключаются к моему домену только несколько раз в месяц, и проверить файл.

Что мне в основном нужно, так это посмотреть, есть ли там файл. Если это .. Стоп.

Если нет ... Тогда ищи папку. Если есть, сделай это. Тогда остановись. Если нет, создайте папку, а затем сделайте это.

Это то, что у меня есть. Я получаю сообщение об ошибке в строке 9, когда файл есть, и все, что я хочу, это остановить скрипт.

Option Explicit
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")    
If fso.FileExists("C:\output.log") Then
Else
    fso.CreateFolder("C:\temp") 
     fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER"
End If
If fso.FolderExists( "C:\temp") 
    fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER" 
Else
    fso.CreateFolder("C:\temp")
    fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER"
End If

Answer 1

Вы можете вставить свой скрипт в функцию или подпрограмму, а затем вызвать эту подпрограмму. Подпрограммы и функции могут быть закрыты:

Option Explicit

main

Sub main
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")    
    If fso.FileExists("C:\output.log") Then
        Exit Sub
    Else
        fso.CreateFolder("C:\temp") 
        fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER"
    End If
    If fso.FolderExists( "C:\temp") 
        fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER" 
    Else
        fso.CreateFolder("C:\temp")
        fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER"
    End If
End Sub

Ваш скрипт будет выполнен, и первое, что вы сделаете, это вызов подпрограммы main. Который затем запускается и, если условие в порядке, выходит. Поскольку после вызова main больше нет команд, сценарий заканчивается.