AVanti473

Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уважаемые форумчане! Во второй части одного замечательного FAQ, в пункте Q88-2, есть пример следующего скрипта: Код: Function OnFirstParentStart Origin = GetEnvironmentVariable("TS_ORIGIN") LastSlash = InStrRev(Origin, "\") sSource = Left(Origin, LastSlash) + "PhotoLine19.01_Plugins" sDestination = ExpandPath("%ProgramFilesDir%\PhotoLine\Defaults\Plugins\") Set objFSO = CreateObject("Scripting.FileSystemObject") If Not objFSO.FolderExists(sSource) Then objFSO.CreateFolder sSource End If Set fld = objFSO.getfolder(sSource) For Each f In fld.files If objFSO.FileExists(sDestination & f.Name) Then objFSO.DeleteFile sDestination & f.Name End If objFSO.MoveFile f.Path, sDestination & f.Name Next End Function | Этот скрипт копирует файлы из определённой папки в виртуальную среду портабельного контейнера ThinApp. И он работает, но лишь тогда, когда портабельная сборка стартует с системного диска. Если же портабельную сборку запускать с любого другого диска, увы, всегда выходит следующая ошибка. Код: --------------------------- Script Error --------------------------- Source: (null) Description: (null) File: (null) Line 14, Character 0 at: --------------------------- ОК --------------------------- | И дело тут не в определении относительного пути по ExpandPath, так как в скриптах других назначений, этот метод отрабатывает отлично, откуда бы портабельная сборка не запускалась. Предполагаю, что ошибка может быть в не объявленной переменной "f". Возможно, надо как-то так: Set f = objFSO.GetFile() но, что писать в скобках - вопрос? Может быть в скобки поместить переменную "sSource" и ещё что-то после неё... Например, слеш и *.* ... Но, с другой стороны, можно ли в скрипте использовать звёздочки, вместо имён предполагаемых файлов, и как всё это правильно записать? Если не сложно, подскажите пожалуйста в чём тут на самом деле проблема, и как её можно решить? Заранее благодарю! | Всего записей: 1191 | Зарегистр. 05-04-2011 | Отправлено: 23:49 04-08-2017 | Исправлено: AVanti473, 23:51 04-08-2017 |
|