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

|
Posted: Fri May 20, 2011 15:14 Post subject: |
|
|
Еще раз с самого начала! Существует (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. Прям беда какая-то с этим скриптом. |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|