Single Post |
Topic: Удаление в 50 каталогах лишних папок, с сохранением файлов |
Author |
Message |
shveicar

|
Posted: Fri May 20, 2011 00:39 Post subject: |
|
|
Спасибо за внимание Долго не отвечал потому-что сразу не получилось и все сделал в ручную а теперь возникла аналогичная ситуация только объем информации стал еще больше. Попробовал как вы сказали - заработало, файлы перемещаются но папки dol удалять не хочет! пишет перемещение выполнено, и все. и еще вопрос - если при перемещении имена файлов будут совпадать возможна ли автоматическая замена имен например счётчик? Сейчас активно изучаю раздел автоматизации, нашел один скрипт (немного подправил нумерацию) для тестирования данной команды скрипт рабочий, Но опять же в рамках данной темы можно ли создать эти папки не там где лежит скрипт, а в выбранной директории?
Code: | '=============================================================
' Создание в текущем каталоге папок с именами 001 ... 099
'=============================================================
Option Explicit
Dim FSO, i
Set FSO = CreateObject("Scripting.FileSystemObject")
For i = 1 To 99
FSO.CreateFolder i \ 100 & (i Mod 100)\ 10 & (i Mod 10)
Next
Set FSO = Nothing
WScript.Quit | Заранее благодарен. |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|