Hallo Zusammen,
wir haben folgenden Problem. Die Ausführung des u.a. Codes führt auf einem PC zu einem Ergebnis
.FoundFiles.Count = 348, auf einem anderem PC zu .FoundFiles.Count = 0. Beide Rechner verfügen
über eine identische Officeinstallation einschließlich benötigter Verweise und deren Dateien, und
der gleichen Verzeichnisstruktur in dem zu Prüfenden Verzeichnisses. Ergo müßten beide PCs das
gleiche Ergebnis produzieren.
With Application.FileSearch
.NewSearch
.LookIn = CVSPfad
.Filename = "*.*"
.SearchSubFolders = True
.Execute
AnzDat = .FoundFiles.Count
Auffällig ist, das die Antwortzeit des Rechners, der keine Ergebnisse liefert, extrem langsam ist, bis er
die Applicaton ausgeführt hat.
Vielleicht hat jmd. einen Tip.
Danke
Gruß Stefan