Batya
|
 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() |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
