Страница 1 из 1
Создание пакета папок из списка (Word, Excel)
Добавлено: Чт июл 12, 2012 12:16
philnano
Здравствуйте!
На работе столкнулся с такой проблемой... У меня есть список с разными названиями в Excel-е (их более 50). Мне нужно создать все эти каталоги. Вручную через F7 - это очень долго... Существует ли такой плагин, чтобы из списка создавал сразу несколько каталогов?
Заранее спасибо!
Re: Создание пакета папок из списка (Word, Excel)
Добавлено: Чт июл 12, 2012 12:42
Hobo
Я бы добавил слева пару колонок. Первую заполнил бы командой md, во вторую --
Потом скопировал бы первые две колонки в файл с расширением .cmd и исполнил бы этот командник.
Добавлено: Чт июл 12, 2012 13:19
philnano
Hobo,
Спасибо огроменное!!! Помогло!!!
P.S.: А может какой-то плагин есть ещё? Чтобы поцивильней это делать?
Добавлено: Чт июл 12, 2012 14:03
LonerD
Создать каталоги по списку можно
утилиткой. Скопировать названия создаваемых каталогов (по одному на строчке) и вставить в окно утилитки.
Добавлено: Пт апр 19, 2013 21:19
koliambia
LonerD Спасибо!!!!!
Предистория:У меня вирус папки сделал скрытыми...
Я все названия папок скопировал с помошью Path2Clipboard.
С Total Commander extDir создал заново.
Супер!
Добавлено: Пт апр 19, 2013 22:10
MVV
koliambia,
Если папки стали скрыты, можно запустить поиск папок с атрибутом скрытости и потом вывести список найденного в панель и снять атрибут со всех разом (опцию обработки подкаталогов обязательно снять, чтобы не затронуть файлов).
Re: Создание пакета папок из списка (Word, Excel)
Добавлено: Пн сен 02, 2013 00:31
turhotels
Hobo писал(а):Я бы добавил слева пару колонок. Первую заполнил бы командой md, во вторую --
Потом скопировал бы первые две колонки в файл с расширением .cmd и исполнил бы этот командник.
А как быть с кирилицей???? С латиницей папки делаются что надо, а вот с кирилицей лажа, неправильная кодировка!!!!
Добавлено: Пн сен 02, 2013 13:36
Batya
Нашёл свой старый скрипт. Не нашёл, где выкладывал, поэтому выкладываю сейчас:
Код: Выделить всё
'==========================================================================
' Создание папок по информации из Excel-файла.
' В папке, переданной скрипту первым параметром, создаются папки из первого
' столбца, а в них - папки из второго столбца. Путь и имя Excel-файла
' передается вторым параметром.
'
' Параметры:
' {целевая папка} {Excel-файл}
'
' Пример параметров при вызове из TC:
' "%P" "C:\Temp\Список папок для создания.xls"
'==========================================================================
Dim FSO, objXL, fileXL, ParentDir, Dir, i, j
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objXL = CreateObject("Excel.Application")
ParentDir = WScript.Arguments(0)
fileXL = WScript.Arguments(1)
objXL.Workbooks.Open fileXL
If Right(ParentDir, 1) = "\" Then
ParentDir = Mid(ParentDir, 1, Len(ParentDir) - 1)
End If
If Not FSO.FolderExists(ParentDir) Then
FSO.CreateFolder(ParentDir)
End If
For i = 1 To 65536
If objXL.Cells(i,1).Value = "" Then
Exit For
End If
Dir = ParentDir
For j = 1 To 2
Dir = Dir & "\" & objXL.Cells(i,j).Value
If Not FSO.FolderExists(Dir) Then
FSO.CreateFolder(Dir)
End If
Next
Next
objXL.Quit
Set FSO = Nothing
Set objXL = Nothing
Wscript.Quit()