Ускорил по совету Batya.
В обновлённом варианте для сравнения/выделения только папок нужно удалить кусок:
Code:
D.RemoveAll
G.RemoveAll
For Each F in P.Files
D.Add F.Name, F.SIze
Next
For Each F in T.Files
G.Add F.Name, F.SIze
Next
For Each F in D.Keys
If G.Exists(F) And D(F) <> G(F) Then S = S & vbnewline & F
Next
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
