Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

FileSearch

FileSearch
31.10.2005 12:21:04
flyingsunbird
Hallo zusammen
Implementierung: s.u.
Ich habe ein Problem mit der FileSearch Application.
Der Benutzer gibt einen Ordnerpfad, einen Datei-Stamm-Namen und
eine Dateiendung an.
Wenn ich nun prüfen möchte, ob es eine Datei gibt, die die Form
Stammname*.Endung hat werden auch Dateien der Form
Stammname*.Endung* gefunden.
Bsp:
Angenommen im Ordner befinden sich folgende Dateien:
Dateien: - peter.sum; peter1.sum; peter45.pat; peter1.par
(Also Stammname: peter) Endung soll .pa sein, eine Datei mit exakt
dieser Endung gibt es in diesem Fall nicht, bei meiner Implementierung
werden aber .pat und .par gefunden.
If Not (D_EndungPrinterdatei.Value = "") Then
Set Dateisuche = Application.FileSearch
With Dateisuche
.LookIn = OrdnerPfad.Value
.Filename = Stammname.Value & "*" & DateiEndung.Value
If Not (.Execute ("Grösser als") 0) Then
MsgBox ("Die Printerdatei " & _
C_StammnameRuntable.Value & D_EndungPrinterdatei.Value & _
" konnte nicht gefunden werden")
Exit Sub
End If
End With
end if

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: FileSearch
31.10.2005 12:29:36
Matthias
Hallo Katharina,
Da schlage ich dir die Dir()-Funktion vor:

Dim fn As String
If Dir(OrdnerPfad.Value &  "\" & Stammname.Value & "*." & DateiEndung.Value) = "" Then
MsgBox ("Die Printerdatei " & _
C_StammnameRuntable.Value & D_EndungPrinterdatei.Value & _
" konnte nicht gefunden werden")
Else
MsgBox fn
End If

Gruß Matthias
AW: FileSearch - Korrektur
31.10.2005 12:31:39
Matthias
Hi,
sorry, in der Eile vertan:

Dim fn As String
fn = Dir(OrdnerPfad.Value &  "\" & Stammname.Value & "*." & DateiEndung.Value)
If fn = "" Then
MsgBox ("Die Printerdatei " & _
C_StammnameRuntable.Value & D_EndungPrinterdatei.Value & _
" konnte nicht gefunden werden")
Else
MsgBox fn
End If

Gruß Matthias
Anzeige
Klappt auch ohne fn
31.10.2005 12:43:36
Flyingsunbird
Hi
klappt auch ohne fn
In fn steht sonst ja nur die Erste
Datei, die dieser Konvention entspricht...und nicht alle,....oder?
Danke
Katharina
AW: Klappt auch ohne fn
31.10.2005 12:48:06
Matthias
Hallo Katharina,
n fn steht sonst ja nur die Erste
Datei, die dieser Konvention entspricht...und nicht alle,....oder?

ja genau, das wollte ich dir mit dem Code zeigen.
Eine Liste bekämst du so:

dim fn as string
fn = Dir("c:\test\*.xls")
Do While fn <> ""
MsgBox fn
fn = Dir() 'ohne Argument: letzte Suche wird wiederholt, nächste passende Datei geliefert
Loop

Für sowas ist das FileSearch-Objekt eleganter.
Gruß Matthias
Anzeige
Klasse.Danke bis zur nächsten Frage......;)
31.10.2005 12:56:27
Flyingsunbird
Danke....Grüsse
Katharina
Danke
31.10.2005 12:36:10
Flyingsunbird
Danke Matthias, hat geklappt. Warum hast Du "fn" eingeführt?
Gruss Katharina
AW: s.u. - o.T.
31.10.2005 12:38:10
Matthias
-

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige