Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Application.FileSearch

Application.FileSearch
28.03.2006 13:04:47
vankraken
Servus,
ich habe mit folgendem Programmschnipsel ein Problem:
Set fs = Application.FileSearch
With fs
' .LookIn = "C:\tstord\"
.LookIn = "Q:\DTausch\Irgendwer\tstord"
.Filename = "GesDatei.csv"
If .Execute &gt 0 Then
MsgBox ("Execute &gt 0")
MsgBox ("Fertig!Execute &gt 0")
Else
MsgBox ("Execute = 0")
MsgBox ("Fertig!Execute=0")
End If
End With
Wenn ich die Datei '.Filename = "GesDatei.csv"'
in '.LookIn = "Q:\DTausch\Irgendwer\tstord"' (Netzlaufwerk) suche findet er sie.
Wenn ich die Datei '.Filename = "GesDatei.csv"'
in '.LookIn = "C:\tstord\"' (Lokale Festplatte) suche findet er sie NICHT!!
Es ist zweimal der selbe Orner mit der selben Datei.
Was mache ich Falsch?!?
Mit freundlichen Grüßen
klaus

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.FileSearch
28.03.2006 13:07:34
ede
hallo klaus,
schau dir mal bei beiden lookin das letzte zeichen an!!!!
gruss
AW: Application.FileSearch
28.03.2006 13:47:25
klaus
Servus,
Egal ob mit oder ohne abschließendes '\' - er findet´s nicht.
Hab ich schon probiert. (is noch'n überbleibsel meiner Versuche - sorry)
Auf 'F:\' (lokal) findet er die Datei auch nicht.
Auf 'R:\' (Netzwerk)wieder ohne Probleme.
Mit freundlichen Grüßen
klaus
AW: Application.FileSearch
28.03.2006 13:53:15
ede
eigenartig, und wenn du vorher mal ein chdir machst!
gehts dann?
gruss
AW: Application.FileSearch
28.03.2006 14:03:24
Klaus
Hi,
das interessiert ihn nicht die Bohne.
wenn ich z.B.:
ChDrive "C:\"
ChDir "\tstord\"
davor setze reagiert er genauso wie davor:
Auf 'Q:\' und 'R:\' (Netzwerk) findet er sie trotzdem (.LookIn = "Q:\DTausch\irgendwer\tstord")
Aber auf 'C:\' sowie 'F:\' (Lokal)nicht.(.LookIn = "C:\tstord")
Das ganze funktioniert auch, wenn ich das Programm unter Excel2000 starte.(Wie seit 2 Jahren)
Nur unter Excel2003 nicht.(seit 3 Tagen)
Mit freundlichen Grüßen
Klaus
Anzeige
AW: Application.FileSearch
28.03.2006 14:08:25
ede
hallo,
habae es mal bei mir nachvollzogen und bei mir gehts, wenn ich über eine variable das
laufwerk wechsle. hier mal ein auszug aus meinem beispiel
...
With Application.FileSearch
.NewSearch
.LookIn = strlaufwerk
.SearchSubFolders = True
.Filename = strFileName
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
If .Execute(SortBy:=msoSortByFileName) &gt 0 Then
...
gruss
AW: Application.FileSearch
28.03.2006 14:36:36
klaus
Servus,
ich habe die FileSearch-Anweisung um die Argumente FileType,MatchTextExactly, SearchSubFolders sowie NewSearch (+ (SortBy:=msoSortByFileName)) erweitert und es ging!
Danke!
Wobei die Suche auf dem Netzlaufwerk 0,3 Sek. dauert und die Lokale 5 Sekunden (wenn's umgekehrt wäre - würde es mich nicht stören).
Danach funktioniert auch der alte Code (ohne die 4 zusätzlichen Argumente) - bis ich Excel Neu starte - dann wieder nicht.
Ich probiere mal weiter. (mit dem NewSearch-Argument)
Mit freundlichen Grüßen
Klaus
Anzeige
AW: Application.FileSearch
28.03.2006 14:51:12
klaus
Hi,
es liegt am Parameter: .FileType = msoFileTypeAllFiles.
Mit ihm geht's.
Nur: die Suche auf dem Netzlaufwerk ist in 0,3 Sekunden erledigt - während er Lokal 6 Sekunden benötigt(auch wenn man das Programm mehrmals startet).
Seltsam, aber immerhin geht's. Wobei ich nicht so ganz verstehe warum VB bei Netzwerklaufwerken den Parameter 'msoFileTypeAllFiles' automatisch setzt, während bei Lokalen Platten dies offenbar nicht der Fall ist.
Mit freundlichen Grüßen
Klaus
AW: Application.FileSearch
28.03.2006 15:16:05
ede
hallo klaus,
das zeitverhalten kann ich nicht nachvollziehen, hauptsache es funktioniert.
gruss
Anzeige
AW: Application.FileSearch
28.03.2006 16:09:20
klaus
Hi,
inzwischen habe ich das Gefühl es liegt an der Anordnung meiner Laufwerke:
C:\ (Festplatte lokal) C:\tstord\datei.cvs wird gefunden!
D:\ (CD-Laufwerk lokal)
E:\ (Festplatte lokal) E:\tstord\datei.cvs wird NICHT gefunden!
F:\ (Festplatte lokal) F:\tstord\datei.cvs wird NICHT gefunden!
G:\ (Festplatte lokal) G:\tstord\datei.cvs wird NICHT gefunden!
P:\ (Netzlaufwek) P:\tstord\datei.cvs wird gefunden!
Q:\ (Netzlaufwek) Q:\tstord\datei.cvs wird gefunden!
R:\ (Netzlaufwek) R:\tstord\datei.cvs wird gefunden!
T:\ (Netzlaufwek) T:\tstord\datei.cvs wird gefunden!
U:\ (Netzlaufwek) U:\tstord\datei.cvs wird gefunden!
W:\ (Netzlaufwek) W:\tstord\datei.cvs wird gefunden!
Z:\ (Netzlaufwek) Z:\tstord\datei.cvs wird gefunden!
So als ob er nach dem CD-ROM nur noch Netzwerklaufwerke abfragen würde.
Mit freundlichen Grüßen
Klaus
Anzeige
AW: Application.FileSearch
28.03.2006 17:03:54
Klaus
Hallo,
war leider nichts mit der Theorie. Ich habe das CD-Rom auf I:\ gelegt und Partition E:\ auf D:\.
So ist's jetzt:
A:\Floppy
C:\FP Partition1
D:\FP Partition2
E:\ Leer
F:\ FP Partition3
G:\ FP Partition4
Q:\ Netzlaufwerk1
usw.
Leider findet er die Datei nur auf C:\ (6 Sek.)oder den Netzlaufwerken( ab Q:\)(0,3 Sek.) - auf D:\, F:\ und G:\ findet er nichts.
Seltsam
Naja, die Anwendung läuft hauptsächlich übers Netzwerk - und da geht's ohne Probleme und auch ohne 6-Sekunden Pause.
Mit freundlichen Grüßen
Klaus

33 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige