| View previous topic :: View next topic |
| Author |
Message |
philnano
Joined: 12 Jul 2012
Posts: 5
|
 (Separately) Posted: Thu Jul 12, 2012 12:16 Post subject: Создание пакета папок из списка (Word, Excel) |
 |
|
Здравствуйте!
На работе столкнулся с такой проблемой... У меня есть список с разными названиями в Excel-е (их более 50). Мне нужно создать все эти каталоги. Вручную через F7 - это очень долго... Существует ли такой плагин, чтобы из списка создавал сразу несколько каталогов?
Заранее спасибо! |
|
| Back to top |
|
 |
Hobo
Joined: 06 Jul 2007
Posts: 45
|
| (Separately) Posted: Thu Jul 12, 2012 12:42 Post subject: Re: Создание пакета папок из списка (Word, Excel) |
|
|
| Я бы добавил слева пару колонок. Первую заполнил бы командой md, во вторую -- Потом скопировал бы первые две колонки в файл с расширением .cmd и исполнил бы этот командник. |
|
| Back to top |
|
|
philnano
Joined: 12 Jul 2012
Posts: 5
|
| (Separately) Posted: Thu Jul 12, 2012 13:19 Post subject: |
|
|
Hobo,
Спасибо огроменное!!! Помогло!!!
P.S.: А может какой-то плагин есть ещё? Чтобы поцивильней это делать? |
|
| Back to top |
|
|
LonerD
Joined: 04 Jan 2011
Posts: 1172
Location: Макеевка
|
| (Separately) Posted: Thu Jul 12, 2012 14:03 Post subject: |
|
|
| Создать каталоги по списку можно утилиткой. Скопировать названия создаваемых каталогов (по одному на строчке) и вставить в окно утилитки. |
|
| Back to top |
|
|
koliambia
Joined: 27 Jul 2012
Posts: 7
Location: Черкассы Украина
|
| (Separately) Posted: Fri Apr 19, 2013 21:19 Post subject: |
|
|
LonerD Спасибо!!!!!
Предистория:У меня вирус папки сделал скрытыми...
Я все названия папок скопировал с помошью Path2Clipboard.
С Total Commander extDir создал заново.
Супер! |
|
| Back to top |
|
|
MVV
Joined: 15 Oct 2009
Posts: 4815
Location: Ростов-Дон
|
|
| Back to top |
|
|
turhotels
Joined: 02 Sep 2013
Posts: 1
Location: Украина
|
| (Separately) Posted: Mon Sep 02, 2013 00:31 Post subject: Re: Создание пакета папок из списка (Word, Excel) |
|
|
| Hobo wrote: | | Я бы добавил слева пару колонок. Первую заполнил бы командой md, во вторую -- Потом скопировал бы первые две колонки в файл с расширением .cmd и исполнил бы этот командник. |
А как быть с кирилицей???? С латиницей папки делаются что надо, а вот с кирилицей лажа, неправильная кодировка!!!! |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Mon Sep 02, 2013 13:36 Post subject: |
|
|
Нашёл свой старый скрипт. Не нашёл, где выкладывал, поэтому выкладываю сейчас:
| Code: | '==========================================================================
' Создание папок по информации из 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() |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
