Dateien suchen
09.09.2004 11:10:43
Ueli
Habe mich durch das Forum geackert und mein Problem dennoch nicht lösen können (trotz verschiedener Beiträge zum Thema)
Auf dem Laufwerk U: sollen unten aufgelistete Dateien gesucht werden(es sind xls und csv Dateien). Es soll nur nach dem angegebenen Namen gesucht werden (MatchTextExactly = True). Dies funktioniert jedoch nicht, d.h es wird z.B. auch "Zustellen" gefunden.
Wo ist mein Fehler? Besten Dank für Tipps!
Gruss
Ueli
Sub DateienkontrolleNeu()
'Kontrolliert, ob alle nötigen Dateien im Laufwerk U: vorhanden sind.
'Nötige Dateien:
Dim notwendigeDateien(8) As String
Dim gesamtVorhanden As String
Dim gesamtNichtVorhanden As String
notwendigeDateien(0) = "Zustell"
notwendigeDateien(1) = "Punkt"
notwendigeDateien(2) = "Verweig"
notwendigeDateien(3) = "Distrib"
notwendigeDateien(4) = "Staffeln"
notwendigeDateien(5) = "SumStaffeln"
notwendigeDateien(6) = "Performance"
notwendigeDateien(7) = "Vorlaufzollabrechnunghandling"
x = 0
Do While x <= 7
With Application.FileSearch
.NewSearch
.Filename = notwendigeDateien(x)
.FileType = msoFileTypeAllFiles
.LookIn = "U:\"
.SearchSubFolders = True
.MatchTextExactly = True
If .Execute <> 0 Then
gesamtVorhanden = gesamtVorhanden & Chr(13) & "- " & notwendigeDateien(x) & ".csv"
Else
gesamtNichtVorhanden = gesamtNichtVorhanden & Chr(13) & "- " & notwendigeDateien(x)
End If
End With
x = x + 1
Loop
MsgBox "Die Datei(en)" & gesamtVorhanden & Chr(10) & "wurde(n) gefunden" & Chr(13) _
& Chr(13) & "Die Datei(en) " & gesamtNichtVorhanden & Chr(13) & "wurde(n) nicht gefunden.", vbInformation
End Sub