View previous topic :: View next topic |
Author |
Message |
q_w_p
Joined: 23 Dec 2004 Posts: 8
|
(Separately) Posted: Thu Dec 23, 2004 18:29 Post subject: Поиск пустых каталогов в TC? |
|
|
При синхронизации папок часто возникает ситуация, когда нужно в одном месте удалить файлы, но при этом ТС не удаляет каталоги, в которых находились эти файлы.
Вопрос следующий: возможен ли поиск только пустых каталогов в TC встроенными функциями (alt+F7) или через дополнительные модули?
На предмет их дальнейшего анализа. |
|
Back to top |
|
|
Ergo Site Admin
Joined: 14 Dec 2004 Posts: 430
|
(Separately) Posted: Thu Dec 23, 2004 19:19 Post subject: |
|
|
q_w_p
Quote: | Вопрос следующий: возможен ли поиск только пустых каталогов в TC встроенными функциями (alt+F7) или через дополнительные модули? |
Можно будет в Total Commander 6.5:
|
|
Back to top |
|
|
q_w_p
Joined: 23 Dec 2004 Posts: 8
|
(Separately) Posted: Thu Dec 23, 2004 20:56 Post subject: |
|
|
Понятно. Остается ждать. |
|
Back to top |
|
|
q_w_p
Joined: 23 Dec 2004 Posts: 8
|
(Separately) Posted: Thu Jan 20, 2005 19:14 Post subject: |
|
|
Ну и где его взять это плугин dirsize ? |
|
Back to top |
|
|
Leshiy
Joined: 06 Jan 2005 Posts: 136
|
|
Back to top |
|
|
q_w_p
Joined: 23 Dec 2004 Posts: 8
|
(Separately) Posted: Fri Jan 21, 2005 13:47 Post subject: |
|
|
Так он еще и файлы мне ишет - нах это надо ? |
|
Back to top |
|
|
Leshiy
Joined: 06 Jan 2005 Posts: 136
|
(Separately) Posted: Fri Jan 21, 2005 14:09 Post subject: |
|
|
q_w_p
Quote: | Так он еще и файлы мне ишет - нах это надо ? |
ну не обязательно же делать как на скриншоте у Ergo (используя поле SizeBackground... тогда влезут файлы нулевого размера), подключи мозг... используй поле FileCount(Background).
Добавлено:
ещё для поиска пустых каталогов можно использовать плагин FileX - ftp://ftp1.mgpsoft.com/FileX14.zip
и искать по его полю EmptyDir |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Fri Jan 21, 2005 16:07 Post subject: |
|
|
А про вторую вкладку забыли? Где можно выставить атрибут "Каталог" |
|
Back to top |
|
|
Leshiy
Joined: 06 Jan 2005 Posts: 136
|
(Separately) Posted: Fri Jan 21, 2005 16:26 Post subject: |
|
|
CaptainFlint
Quote: | А про вторую вкладку забыли? Где можно выставить атрибут "Каталог" | никто не забыт, ничто не забыто!
без контентного плагина этой галкой необходимого результата же не получить. |
|
Back to top |
|
|
Ergo Site Admin
Joined: 14 Dec 2004 Posts: 430
|
(Separately) Posted: Fri Jan 21, 2005 16:33 Post subject: |
|
|
Quote: | ну не обязательно же делать как на скриншоте у Ergo (используя поле SizeBackground... тогда влезут файлы нулевого размера), подключи мозг... используй поле FileCount(Background). |
Когда делался скриншот FileCount еще не было
Прикольно, после выхода Total Commander 6.5 есть уже три способа находить пустые директории |
|
Back to top |
|
|
hoopoe
Joined: 15 Dec 2004 Posts: 22
|
(Separately) Posted: Fri Jan 21, 2005 17:04 Post subject: |
|
|
епппрррр.... а тормозит-то как.... |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Fri Jan 21, 2005 17:15 Post subject: |
|
|
Leshiy
Quote: | без контентного плагина этой галкой необходимого результата же не получить. |
Так я и не говорил, что без плагина Мой пост относился к дискусии, начатой фразой q_w_p:
Quote: | Так он еще и файлы мне ишет - нах это надо ? |
_________________ Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
Back to top |
|
|
q_w_p
Joined: 23 Dec 2004 Posts: 8
|
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sat Jan 22, 2005 21:55 Post subject: |
|
|
Альтернатива со старого форума (цитирую себя, любимого ).
Code: | Скрипт удаляет пустые папки внутри текущей директории и во всех вложенных в нее. А если текущая будет корневой - во всем диске тогда. В параметрах кнопки для этого скрипта поставьте "%P"
'======= DelEmtySubDirs.vbs =======
' ©2004, Volniy
Option Explicit
Dim fso
Dim StartFolder
Dim objArgs
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
If objArgs.Count = 1 Then
' Текущая директория, получаем через %P в командной строке
StartFolder = objArgs(0)
Else
MsgBox "Должен быть один параметр!", vbCritical
WScript.Quit
End If
'Можно указать начальную папку и напрямую
'StartFolder = "D:\"
If fso.FolderExists(StartFolder) = False Then
MsgBox "Неверная директория!", vbCritical
WScript.Quit
End If
ScanFolder StartFolder
MsgBox "Пустые папки в '" & StartFolder & "' удалены!", vbInformation
Set fso = Nothing
Set objArgs = Nothing
WScript.Quit
Sub ScanFolder(FolderPath)
Dim curFolder
Dim FItem
Set curFolder = fso.GetFolder(FolderPath)
For Each FItem In curFolder.SubFolders
ScanFolder FItem.Path
Next
' Проверка на условие для удаления
If curFolder.SubFolders.Count = 0 And curFolder.Files.Count = 0 Then
curFolder.Delete
End If
Set curFolder =Nothing
End Sub
'======= DelEmtySubDirs.vbs ======= |
|
|
Back to top |
|
|
|