VBScript Конец инструкции копирования файлов DLL - PullRequest
Новая
       11

VBScript Конец инструкции копирования файлов DLL

0 голосов
/ 03 июня 2019

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

Это код, который я придумал после прочтения некоторых учебников. 

Dim strSourceFolder, strDestFolder
strSourceFolder = "C:\Users\myName\Desktop\Win64"
strDestFolder = "C:\Program Files\Common Files\Company\Pruebaupdater"

For Each file In StrSourceFolder
    If File.Type = "dll" Then
        ReplaceIfNewer
    End If
Next

Sub ReplaceIfNewer (SourceFile, DestFolder)
    Dim filesys, demofile, date1, date2
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set demofile = filesys.GetFile("filename1")
    date1 = demofile.DateLastModified
    demofile = filesys.GetFile("filename2")
    date2 = demofile.DateLastModified

    If DateDiff("d", date1, date2) > 0 Then
        **copy SourceFile** to SourceFolder
    End If
End Sub

Когда сценарий достигает функции копированияЯ получаю 800A0401 в строке 21, символ 20 - Ожидается конец инструкции.Эта функция копирования одинакова во всех частях кода, которые я видел.

Один из моих источников - this , и там нет комментариев относительно функции копирования, поэтому я думаю, что этоработает на них.

...