Предложения по исправлению ошибки компиляции Microsoft VBScript 800a0409

Хватит тратить время на компьютерные ошибки.

Если вы видите ошибку компиляции microsoft VBScript 800a0409 на своем компьютере, ознакомьтесь с типом предлагаемых исправлений.Этот сигнал ошибки 800A0409 регулярно возникает при запуске полного VBScript. У вас, скорее всего, есть фактический левый закрывающий знак, если не новая скобка.

Я получаю префикс ошибки 800a0409, добытая непротиворечивая строка, по порядку 1, 54 с каждым кодом .

Явный параметрDim ObjProgressMsgDim strMessage, strWindowTitle, strTemp, wshShell, objTempMessage, strTempVBSУстановить fso, strVstup, objText, strVystup, f, dtmVyt, dtmF, dDiff, fName, fExt, dtmAkt, fShort, msgTextDim tx, fso CreateObject("Scripting =.FileSystemObject")Установить objText означает fso.GetFile("l:batposledni.den")strVstup=.From "l:папка с файлами"strVystup подразумевает "l:backup"dtmVyt ObjText=.=дата последнего преобразованияmsgtext "Текст точно вверху среди копий и переименований" & vbcrlf & "файлы, пожалуйста, подождите... все msgTextДля моего мира"progressmsg p fso.GetFolder(strVstup). файлы   dtmF f означает .DateLastModified    dDiff - это DateDiff("s", dtmVyt) dtmF Если dDiff 0 < Тогда          сообщение о прогрессе ""          WScript.Echo f  вылечить, еслиследующийWScript.Echo связан с «От текста к текущей задаче».Функция ProgressMsg(strMessage)Автор Дени Сен-Пьер' Показывает окно сообщения о ходе выполнения, которое не более чем может убить исходный скрипт как на 2k, так и на XP' Если strMessage пуст, удалите этот префикс. Предыдущее поле слова эффективности'Использование 4096 в msgbox приводит к тому, что нижеприведенное рабочее сообщение появляется в первоклассных вещах.ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ: Вам нужно только установить Dim ObjProgressMsg над скриптом вашего босса, чтобы он работал в описанной форме.    Установить wshShell WScript =.CreateObject("WScript.Shell")   WshShell strtemp =.ExpandEnvironmentStrings("%TEMP%" )    Если strMessage равно "", то       Отключить проверку ошибок, если objProgressMsg еще не завершен        Если ошибка, после чего продолжить        ' Выйти из ProgressMsg        objProgressMsg.Terminate()        ' Повторно включить проверку на проскальзывание        В случае ошибки гонка до 0       выходная функция   внизу, если        strTempVBS равно strTEMP + "" & "Message.vbs" 'Перезапустить файл регулирования from ' для создания Message.Vbs, True = перезаписать   Набор ObjTempMessage равен fso.StrTempVBS, createtextfile(True)  ObjTempMessage.WriteLine("MsgBox""" & strMessage & """, 4096, """ & "a_sp_rano" & """" ) ObjTempMessage.Close    ' Отключите проверку ошибок в ObjProgressMsg, если он еще не знает об этом    Если ошибка, то продолжайте    ha Выйти из ProgressMsg раньше objProgressMsg.Terminate()    i Повторно включить проверку ошибок    С ошибкой 0 goto 'Поднять ObjProgressMsg, а также оставить на нем объект    ObjProgressMsg Set = WshShell.Exec("%windir%system32wscript.exe" & strTempVBS)выходная функция

Сценарий должен отображать окно сообщения при поиске последних файлов старше даты статической коррекции файла posledni.den, который фактически продолжает работать. Как только каталог найден, этот метод закрытия должен вернуть в msgbox весь непокрытый файл.Это работает очень хорошо, когда я изменяю его, чтобы он соответствовал этому:
msgtext, чтобы убедиться, что вы отправляете текстовое сообщение Скопируйте «один при переименовании» и, кроме того, необязательные &VbCrLf &"файлы, пожалуйста, подождите...="

msgtext "Что-то переименовывается в скопированном тексте" & "Файлы, не стесняйтесь ждать..."

Удаление VbCrLf из них похоже на исправление только ошибок, а не новостной бюллетень, это явно событие. Обычно я понимаю, почему он вообще ведет себя так, как я поступил неправильно. Мы будем очень признательны за любое предупреждение о проблеме.
    ОТ
<тд><дел>

Форумы SMART WORK
ДЛЯ ИТ-ПРОФЕССИОНАЛОВ
<дел><дел>
Спасибо. В настоящее время мы получили ваш запрос и будем действовать быстро.