Реклама на сайте Advertise with us

Задачка - удалить одинаковые каталоги

Расширенный поиск по форуму
 
Новая тема Новая тема   
Автор
Поиск в теме:

стара потыкана ондатра

С нами с 25.12.07
Сообщения: 3850
Рейтинг: 2579

Ссылка на сообщениеДобавлено: 16/01/12 в 03:46       Ответить с цитатойцитата 

вообщем есть 300 папок с такой структурой
\имя1\gallery\...
\имя2\gallery\...
\имя3\gallery\...

Как средствами TC или винды или еще какого то менеджера файлов удалить все каталоги gallery, но при этом чтобы осталось их содержимое
то есть чтобы структура приняла вид
\имя1\...
\имя2\...
\имя3\...

с меня пиво smail54.gif

0
 

Добрых Дел Мастер

С нами с 03.05.08
Сообщения: 3143
Рейтинг: 1227

Ссылка на сообщениеДобавлено: 16/01/12 в 11:56       Ответить с цитатойцитата 

ну в виндовом проводнике поиск запусти в рутовой папке. в которой папки "имяN" лежат. найдет все "gallery". их и удали

пришел к победе коммунистического труда

0
 

www.romartstudio.com

С нами с 06.11.03
Сообщения: 11958
Рейтинг: 2259

Ссылка на сообщениеДобавлено: 16/01/12 в 12:16       Ответить с цитатойцитата 

сделай бат файлик
move \papka№\gallery\*.* \papka№\

Стильный дизайн - за реальные деньги Skype shako1322

0
 

стара потыкана ондатра

С нами с 25.12.07
Сообщения: 3850
Рейтинг: 2579

Ссылка на сообщениеДобавлено: 16/01/12 в 14:05       Ответить с цитатойцитата 

Вообщем решил задачу через Total commander
Используя данный скрипт
Код:
'====================================================
' Перемещение содержимого подкаталогов
' внутри выделенных папок на уровень вверх

' Параметры: %L
'====================================================
With CreateObject("Scripting.FileSystemObject")
Set TempFile = .OpenTextFile(WScript.Arguments(0), 1)
Do While Not TempFile.AtEndOfStream
   N = TempFile.ReadLine
   If .FolderExists(N) Then
      Set FF = .GetFolder(N)
      For Each Fd In FF.SubFolders
        For Each F In Fd.SubFolders
          If Not .FolderExists(N & .GetFileName(F)) Then F.Move N
        Next
        For Each F In Fd.Files
          If Not .FileExists(N & .GetFileName(F)) Then F.Move N
        Next
        If Fd.Size = 0 Then Fd.Delete
      Next
    End If
Loop
End With
TempFile.Close
Wscript.Quit

Установка
1) Выделите код и скопируйте его содержимое в буфер обмена (Ctrl+C).
2) Откройте текстовый редактор и вставьте текст из буфера (Ctrl+V), сохраните в нужном формате.(добавляем расширение .vbs)
3) Для формирования кнопки перетяните левой кнопкой мыши новый файл скрипта из файловой панели TC на панель инструментов (кнопок)
4) Если в шапке скрипта указаны параметры, откройте диалог настройки новой кнопки (через контекстное меню) или пользовательской команды и в поле "Параметры:" впишите заданные (В этом случае %L ).

Может кому пригодится

0
 
Новая тема Новая тема   

Текстовая реклама в форме ответа
Заголовок и до четырех строчек текста
Длина текста до 350 символов
Купить рекламу в этом месте!


Перейти:  



Спонсор раздела Стань спонсором этого раздела!

Реклама на сайте Advertise with us

Опросы

Рецепт новогоднего блюда 2022



Обсудите на форуме обсудить (11)
все опросы »