Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Filesearch

Filesearch
02.05.2008 19:24:00
Specke
Hallo Experten,
ich durchsuche mit Filesearch eine ziemlich große Ordnerstruktur nach Dateinamen und möchte, dass beim ersten Treffer ein Abbruch erfolgt.
Wie kann ich das bewerkstelligen?
Im Moment sieht es so aus:

Sub DateiSuche()
With Application.FileSearch
.Filename = actWs.Range("H" & i).Value
.LookIn = "\\Support"
.SearchSubFolders = True
.Execute
If .FoundFiles.Count = 0 Then
Msgbox "Nicht gefunden"
Else
For j = 1 To .FoundFiles.Count
Msgbox .FoundFiles(j)
Next j
End If
End With
End Sub


Danke und Gruß
Specke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filesearch
02.05.2008 19:47:15
Original
Hi,
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
If i = 1 Then
MsgBox .FoundFiles(i)
Exit For
End If
Next i
End If
mfg Kurt

Danke, passt! Specke owT
02.05.2008 20:29:00
Specke

AW: Filesearch
02.05.2008 20:32:31
{Boris}
Hi,
wozu überhaupt noch die Schleife?

If .Execute > 0 Then
MsgBox .FoundFiles(i)
End If


Grüße Boris

Wozu überhaupt....
02.05.2008 21:17:00
Renee
Hi {Boris},
wozu überhaupt noch ein if ?

MsgBox .Execute


GreetZ Renée ;-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige