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 15:14    Post subject: Reply with quote

Еще раз с самого начала! Существует (100) каталогов-имена у всех разные, в каждом из них
файлы к примеру jpg (их число везде разное), кроме того в каждом из 100 каталогов содержатся(помимо файлов) еще папки(каталоги),имя у всех одинаковое(dol) в которых в свою очередь также лежат файлы jpg Других файлов(кроме jpg) в папке дол нет.
Задача- разом переместить все файлы(jpg) из всех каталогов (dol) на один уровень вверх (то-есть папки dol останутся пустые) и по возможности сразу удалить все папки dol Естественно при перемещении имена файлов jpg могут совпасть поскольку имеют нумерацию 1,2,3 итд. (но на самом деле файлы все разные) - поэтому при перемещении файлы с одинаковыми именами не должны пропасть - а должны быть переименованы по счётчику. Вот в принципе и всё.
Все остальные вопросы(скрипт создающий 100пустых каталогов) имели отношения всего лишь к проверке созданного скрипта.
И в завершении еще один вопрос - Существует 30 каталогов в них более 1000 jpg (имена jpg у всех разные) но в каждом каталоге находятся по 5,6 файлов одинакового содержания но имеющие разное разрешение например 960х768, 1080х764.и др Как правильно задать поиск чтобы найти все jpg ( во всех каталогах) с нужным разрешением например 960х768 чтобы затем их можно было удалить? Пытался по всякому задавать поиск (параметров поиск по разрешению не нашел) Спасибо.

Добавлено спустя 13 минут:

Да и ответ на вопрос
Quote:
Может быть задача звучит - перенести все вложенные файлы с автоматическим переименованием в головную папку и удалить пустые вложенные папки?
- на данный момент такой задачи нет,(поскольку как я понимаю все файлы из всех папок попадут в один общий (начальный)каталог) а нужно всего лишь переместить их на один уровень вверх и удалить пустые вложенные папки. Но если уже существует готовое решение(скрипт) именно для такого варианта тоже было бы неплохо иметь его под рукой (вдруг понадобится выполнить такое задание). Спасибо.

Добавлено спустя 39 минут:

По поводу совета
Code:
 i=i+1
   If Not FSO.FileExists(TargetPath & "\" & File.Name) Then
     FSO.MoveFile File, TargetPath & "\"
     MoveFiles = MoveFiles + File.Name & chr(13)
   ElseIf FSO.FileExists(TargetPath&"\"&.GetBaseName(File)&" ("&Abs(i)&")."&.GetExtensionName(File)) Then
     File.Copy TargetPath&"\"&.GetBaseName(File)&" ("&Eval(i+1)&")."&.GetExtensionName(File)
   Else
     File.Copy TargetPath&"\"&.GetBaseName(File)&" (1)."&.GetExtensionName(File)
   End If
сделал как указали вообще перестал скрипт работать выскакивает ошибка строка 25 символ 4 неверная или неквалифицированная ссылка код 800А01F9. Прям беда какая-то с этим скриптом.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group