Создание пакета папок из списка (Word, Excel)

[philnano]

Здравствуйте!
На работе столкнулся с такой проблемой... У меня есть список с разными названиями в Excel-е (их более 50). Мне нужно создать все эти каталоги. Вручную через F7 - это очень долго... Существует ли такой плагин, чтобы из списка создавал сразу несколько каталогов?
Заранее спасибо!

[Hobo]

Я бы добавил слева пару колонок. Первую заполнил бы командой md, во вторую --

Код: Выделить всё

"=<ячейка_справа>"

Потом скопировал бы первые две колонки в файл с расширением .cmd и исполнил бы этот командник.

[philnano]

Hobo,
Спасибо огроменное!!! Помогло!!!

P.S.: А может какой-то плагин есть ещё? Чтобы поцивильней это делать?

[LonerD]

Создать каталоги по списку можно утилиткой. Скопировать названия создаваемых каталогов (по одному на строчке) и вставить в окно утилитки.

[koliambia]

LonerD Спасибо!!!!!
Предистория:У меня вирус папки сделал скрытыми...
Я все названия папок скопировал с помошью Path2Clipboard.
С Total Commander extDir создал заново.
Супер!

[MVV]

koliambia,
Если папки стали скрыты, можно запустить поиск папок с атрибутом скрытости и потом вывести список найденного в панель и снять атрибут со всех разом (опцию обработки подкаталогов обязательно снять, чтобы не затронуть файлов).

[turhotels]

Я бы добавил слева пару колонок. Первую заполнил бы командой md, во вторую --

Код: Выделить всё

"=<ячейка_справа>"

Потом скопировал бы первые две колонки в файл с расширением .cmd и исполнил бы этот командник.

А как быть с кирилицей???? С латиницей папки делаются что надо, а вот с кирилицей лажа, неправильная кодировка!!!!

[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()