Добавлено: Чт июл 21, 2011 23:03
shveicar
Для одного окна поправил. Работает?
Для одного окна поправил. Работает?
Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Код: Выделить всё
Сценарий: F:\total\Utils\html\zamema_po_sablonu2.vbs
Строка: 30
Символ: 1
Ошибка: Несоответствие типа: '[string: "C:\DOCUME~1\xxx\LOCA"]'
Код: 800A000D
Источник: Ошибка выполнения Microsoft VBScript
Код: Выделить всё
Option Explicit
Dim FSO, WSH, F, FF, Mode, Str1, Str2, Errors, i, FZ, ArrZ
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set Errors = CreateObject("Scripting.Dictionary")
Str1 = InputBox("Введите искомую строку:", "Замена текста в файлах с помощью шаблонов")
With WScript
Str2 = .Arguments(0)
Mode = .Arguments(1)
FF = .Arguments(2)
If .Arguments.Count > 3 Then FZ = .Arguments(3)
End With Код: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\html\zamema_po_sablonu2.vbs
0 %L "filelist.txt"
C:\WINDOWS\System32\WScript.exe
zamema_po_sablonu2
-1
Код: Выделить всё
%%FromFileArr%% 0 %L "filelist.txt"Код: Выделить всё
"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 0 %L "filelist.txt"Код: Выделить всё
%%FromFileArr%% 0 %L "filelist.txt"Код: Выделить всё
"<META HTTP-EQUIV='Refresh' CONTENT='0; URL=%%FromFileArr%%'>" 0 %L "filelist.txt"Код: Выделить всё
<div id="player_bg"><p id="player">Get The <a href="Код: Выделить всё
" rel="nofollow">Flash Player</a>Код: Выделить всё
<div id="player_bg"><p id="player">Get The <a href="Код: Выделить всё
" rel="nofollow">Flash Player</a>