Code macht mehr als er soll
10.07.2005 00:11:23
Reinhard
in einem anderen Forum wollte jmd wissen ob es in seinen Partitionen Dateien mehrfach gibt, und das nur bezogen auf Dateinamen die er als Liste hat (tabelle2). Ich bastelte daraufhin nachfolgenden Code, der leider die Ergebnisse "mehrfach" anzeigt. D.h. er funktioniert im Sinne dere Aufgabenstellung gut, aber eine datei xyz.xls wird dann mehrfach angezeigt (2-3mal), warum?
Gruß
Reinhard
Sub tt()
lw = "CD"
Set fs = Application.FileSearch
For n = 1 To Len(lw)
With fs
.LookIn = Mid(lw, n, 1) & ":\"
.Filename = "*.xls"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
dat = Mid(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
Set c = Worksheets("Tabelle2").Range("a1:a500").Find(dat, LookIn:=xlValues)
If Not c Is Nothing Then
zei = IIf(zei = 0, 1, Cells(65536, 1).End(xlUp).Row + 1)
Cells(zei, 1) = dat
End If
Next i
End With
Next n
Range("A1:A" & zei - 1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub