Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

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



PostPosted: Fri May 20, 2011 00:39    Post subject: Reply with quote

Спасибо за внимание Долго не отвечал потому-что сразу не получилось и все сделал в ручную а теперь возникла аналогичная ситуация только объем информации стал еще больше. Попробовал как вы сказали - заработало, файлы перемещаются но папки 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
Заранее благодарен.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group