Single Post - Автоматическое создание папок

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

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Автоматическое создание папок

Author

Message

Batya

Posted: Thu Feb 07, 2008 11:34 Post subject:

sergeylost
Ну так бы сразу и сказал, что тебе нужно создавать папки.
Замени в указанном скрипте

Code:

If WScript.Arguments.Count > 1 Then
NewFilePath = WScript.Arguments(1) & FileName
Else
NewFilePath = FilePath & "\" & FileName
End If

на

Code:

If WScript.Arguments.Count > 1 Then
NewFilePath = WScript.Arguments(1) & Left(FileName, 8)
Else
NewFilePath = FilePath & "\" & Left(FileName, 8)
End If

_________________
Нет, я не сплю. Я просто медленно моргаю.