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 

Поиск пустых каталогов в TC?

 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
q_w_p



Joined: 23 Dec 2004
Posts: 8

Post (Separately) Posted: Thu Dec 23, 2004 18:29    Post subject: Поиск пустых каталогов в TC? Reply with quote

При синхронизации папок часто возникает ситуация, когда нужно в одном месте удалить файлы, но при этом ТС не удаляет каталоги, в которых находились эти файлы.

Вопрос следующий: возможен ли поиск только пустых каталогов в TC встроенными функциями (alt+F7) или через дополнительные модули?
На предмет их дальнейшего анализа.
Back to top
View user's profile Send private message
Ergo
Site Admin


Joined: 14 Dec 2004
Posts: 430

Post (Separately) Posted: Thu Dec 23, 2004 19:19    Post subject: Reply with quote

q_w_p
Quote:
Вопрос следующий: возможен ли поиск только пустых каталогов в TC встроенными функциями (alt+F7) или через дополнительные модули?


Можно будет в Total Commander 6.5:
Back to top
View user's profile Send private message
q_w_p



Joined: 23 Dec 2004
Posts: 8

Post (Separately) Posted: Thu Dec 23, 2004 20:56    Post subject: Reply with quote

Понятно. Остается ждать.
Back to top
View user's profile Send private message
q_w_p



Joined: 23 Dec 2004
Posts: 8

Post (Separately) Posted: Thu Jan 20, 2005 19:14    Post subject: Reply with quote

Ну и где его взять это плугин dirsize ?
Back to top
View user's profile Send private message
Leshiy



Joined: 06 Jan 2005
Posts: 136

Post (Separately) Posted: Thu Jan 20, 2005 20:52    Post subject: Reply with quote

http://wincmd.ru/plugring/dirsizecalc.html
Back to top
View user's profile Send private message
q_w_p



Joined: 23 Dec 2004
Posts: 8

Post (Separately) Posted: Fri Jan 21, 2005 13:47    Post subject: Reply with quote

Так он еще и файлы мне ишет - нах это надо ?
Back to top
View user's profile Send private message
Leshiy



Joined: 06 Jan 2005
Posts: 136

Post (Separately) Posted: Fri Jan 21, 2005 14:09    Post subject: Reply with quote

q_w_p
Quote:
Так он еще и файлы мне ишет - нах это надо ?

ну не обязательно же делать как на скриншоте у Ergo (используя поле SizeBackground... тогда влезут файлы нулевого размера), подключи мозг... используй поле FileCount(Background).

Добавлено:
ещё для поиска пустых каталогов можно использовать плагин FileX - ftp://ftp1.mgpsoft.com/FileX14.zip
и искать по его полю EmptyDir
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6151
Location: Москва

Post (Separately) Posted: Fri Jan 21, 2005 16:07    Post subject: Reply with quote

А про вторую вкладку забыли? Где можно выставить атрибут "Каталог" Smile
Back to top
View user's profile Send private message
Leshiy



Joined: 06 Jan 2005
Posts: 136

Post (Separately) Posted: Fri Jan 21, 2005 16:26    Post subject: Reply with quote

CaptainFlint
Quote:
А про вторую вкладку забыли? Где можно выставить атрибут "Каталог"
никто не забыт, ничто не забыто! Smile
без контентного плагина этой галкой необходимого результата же не получить.
Back to top
View user's profile Send private message
Ergo
Site Admin


Joined: 14 Dec 2004
Posts: 430

Post (Separately) Posted: Fri Jan 21, 2005 16:33    Post subject: Reply with quote

Quote:
ну не обязательно же делать как на скриншоте у Ergo (используя поле SizeBackground... тогда влезут файлы нулевого размера), подключи мозг... используй поле FileCount(Background).

Когда делался скриншот FileCount еще не было Smile
Прикольно, после выхода Total Commander 6.5 есть уже три способа находить пустые директории Smile
Back to top
View user's profile Send private message
hoopoe



Joined: 15 Dec 2004
Posts: 22

Post (Separately) Posted: Fri Jan 21, 2005 17:04    Post subject: Reply with quote

епппрррр.... а тормозит-то как....
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6151
Location: Москва

Post (Separately) Posted: Fri Jan 21, 2005 17:15    Post subject: Reply with quote

Leshiy
Quote:
без контентного плагина этой галкой необходимого результата же не получить.

Так я и не говорил, что без плагина Smile Мой пост относился к дискусии, начатой фразой q_w_p:
Quote:
Так он еще и файлы мне ишет - нах это надо ?

_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
q_w_p



Joined: 23 Dec 2004
Posts: 8

Post (Separately) Posted: Sat Jan 22, 2005 15:01    Post subject: Reply with quote

Ок. Всем спасибо. FileX идеальное решение!
Есть предложение поместить его сюда:
http://wincmd.ru/directory/content.html
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Jan 22, 2005 21:55    Post subject: Reply with quote

Альтернатива со старого форума (цитирую себя, любимого Smile ).
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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group