Плагины для Total Commander (часть 2) - [4056] :: Программы

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Программы » Плагины для Total Commander (часть 2)

Модерирует : gyra, Maz
Maz (10-12-2016 17:20): Переезжаем: Плагины для Total Commander (часть 3)	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Skif_off

Gold Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:

#NoTrayIcon

Local $sDirs, $sDelimiter, $aDirs, $i

If $CmdLine[1] Then
$sDirs = FileRead($CmdLine[1])
;Проверяем конец строки (DOS/Unix/Mac), назначаем найденное разделителем
Select
Case StringInStr($sDirs, @CRLF) > 0
$sDelimiter = @CRLF
Case StringInStr($sDirs, @LF) > 0
$sDelimiter = @LF
Case Else
$sDelimiter = @CR
EndSelect
;Режем в массив
$aDirs = StringSplit($sDirs, $sDelimiter)
;Создаем в цикле каталоги
For $i = 1 To $aDirs[0]
DirCreate($aDirs[$i])
Next
MsgBox(4096, '', 'Готово!')
EndIf

Всего записей: 6490 | Зарегистр. 28-01-2008 | Отправлено: 13:39 25-04-2015

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Плагины для Total Commander (часть 2)
Maz (10-12-2016 17:20): Переезжаем: Плагины для Total Commander (часть 3)

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC