Добавил у себя функцию (LСase) для приведения имён к одному регистру, иначе различающиеся по размеру, одноимённые, но отличающиеся регистром подкаталоги не выделялись:
Code:
For Each F in P.SubFolders
D.Add LCase(F.Name), F.SIze
Next
For Each F in T.SubFolders
G.Add LCase(F.Name), F.SIze
Next
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
