Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filesearch

Forumthread: Filesearch

Filesearch
17.12.2003 16:30:40
Geitzi
Hallo,
ich habe ein Problem mit der Funktion "Filesearch" auf "meinem" Rechner. Bis vor kurzem lief das Makro immer einwandfrei. Aber seit kurzem liefert das "Execute" als Ergebnis immer nur 0, obwohl in den Pfaden entsprechende Dateien existieren.
Das Problem tritt auch nur auf meinem Rechner auf. Starte ich das Makro auf einem andern XP-Rechner, geht's wieder ganz normal.
Vielleicht kann mir jemand dabei helfen!

Geitzi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Filesearch
17.12.2003 16:34:46
Nepumuk
Hallo ?
mit welchem Betriebssystem funktioniert es nicht? Hast du vorher eine andere Excelversion gehabt?
Gruß
Nepumuk
AW: Filesearch
17.12.2003 16:50:10
Geitzi
Hallo Nepomuk,
ich habe das Betriebssystem XP-Professional. Es ist auch die gleiche Excel-Version. Das Makro läuft übrigens in Word auch nicht.
AW: Filesearch noch offen
17.12.2003 17:00:52
Nepumuk
Hallo ?
dann weiß ich auch nicht weiter. Ich hatte das Problem mit ME & XP, da hat er manchmal nichts, manchmal Dateien die schon längst gelöscht waren und machmal Dateien mehrfach gefunden. Nach einem Patch von Microsoft ging es dann wieder.
Tut mir Leid,
Nepumuk
Anzeige
AW: Filesearch noch offen
17.12.2003 17:05:41
Geitzi
Trotzdem Danke!

Geitzi

Das Makro schaut übrigens so aus:
fname = "chors.dbd"
Dname = "d:\gz"

With Application.FileSearch
.NewSearch
.lookin = Dname
.SearchSubFolders = True
.Filename = fname
.MatchTextExactly = True

If .Execute() > 0 Then
found_name = Strings.LCase(.FoundFiles(1))
ind = 1
ind = Strings.InStr(ind, found_name, fname, vbBinaryCompare)
Dname = Strings.Left(found_name, ind - 2)
Else
MsgBox "File not found"
End If

End With
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige