Single Post - [Script] Копирование файлов по списку

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: [Script] Копирование файлов по списку

Author

Message

Flasher

Posted: Tue Feb 28, 2012 16:53 Post subject:

Заменить (не проверял):
169 строка:

Code:

If FSO.FileExists(pF) And StrComp(Left(pF, Len(Top)), Top, 1) = 0 And StrComp(Ext, FSO.GetExtensionName(pF), 1) = 0 Then

209 строка:

Code:

ElseIf StrComp(Left(lF, Len(Top)), Top, 1) = 0 And StrComp(Ext, FSO.GetExtensionName(lF), 1) = 0 Then

Вставка после 106-й строки:

Code:

Top = InputBox("Введите начало имён копируемых файлов:", "Фильтрация файлов")
Ext = InputBox("Введите расширение копируемых файлов:", "Фильтрация файлов")