Ordnerduplikate finden

24/08/2009 - 09:42 von Tinu Kiefer | Report spam
Guten Tag

Wie ermittle ich per VBA Ordnerduplikate über zwei Ebenen?

z.B

C:\x\aa\
C:\x\bb\
C:\x\cc\
C:\y\dd\
C:\y\_archiv\dd
C:\z\cc

=> Duplikat : "cc" (ev. Eintrag in Tabelle)
=> keine Duplikatmeldung "dd" da auf 3. Ebene

Freundliche Grüsse
Martin Kiefer
 

Lesen sie die antworten

#1 Andreas Killer
24/08/2009 - 12:20 | Warnen spam
On 24 Aug., 09:42, Tinu Kiefer wrote:

Wie ermittle ich per VBA Ordnerduplikate über zwei Ebenen?


Lies ganz einfach alle Ordner in eine Tabelle Spalte A ein und kopiere
dabei den letzten Ordnerteilstring in Spalte B.

Wenn Du nun nach Spalte B sortierst kannst Du bei gleichem Inhalt in
Spalte B und einem Unterschied in Spalte A ein Duplikat feststellen.

Andreas.

Sub Test()
Dim fs As Object, FO As Object, F As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set FO = fs.GetFolder("C:\Programme").SubFolders
Debug.Print "Anzahl Ordner", FO.Count
For Each F In FO
Debug.Print _
fs.GetAbsolutePathName(F), _
fs.GetParentFolderName(F), _
F.Name
Next
End Sub

Ähnliche fragen