Hallo Zusammen,
stosse mal wieder an meine Grenzen und benoetige dringend Hilfe.
Ich suche bestimmte Dateien auf einem Server. Allerdings ist die Suche in den vorhandenen Ordnern nicht ganz so einfach, da es sich um Ordner mit Unterordnern handelt und ich in manchen Ordnern nur nach Teilstrings des Ordnernamens suchen kann (ist leider etwas schlecht zu erklaeren da ich keine Firmeninternen Informationen nach aussen geben darf und somit das ganze nur umschreiben kann).
Der Pfad des Servers ist mir bekannt. Diesen habe ich als "SearchFolder" deklariert.
Der Name des ersten Ordners ist mir ebenfalls bekannt und wird aus einer Exceldatei ausgelesen und als "FAT" deklariert.
Somit kann ich zumindestpruefen mit folgendem Code pruefen ob der gesuchte Ordner vorhanden ist und dann nach dem benoetigten Unterordner suchen
If CBool(Len(Dir(SearchFolder & "\" & FAT, vbDirectory)) > 0) = True Then
SearchFolder = SearchFolder & FAT
end if
Aber jetzt kommt mein Problem. Vom Unterordner sind mir nur 2 Teilstrings bekannt nach denen ich im Ordnernamen suchen kann. Die beiden Teilstrings habe ich mit "CEID_1" und "CEID_2" deklariert.
Ich muss also alle Unterordner durchsuchen ob in dessen Bezeichnung der Teilstring "CEID_1" und "CEID_2" vorkommt und wenn ja in diesem Unterordner nach einer bestimmten Datei suchen die ich dan oeffnen und bestimmte Werte auslesen muss.
Gibt es so etwas wie die DIR() funktion mit der ich nach Ordnern suchen kann ?
Dann koennte ich die Ordnerbezeichnungen einzeln auswerten indem ich das so mache
FoundFolder = Dir(SearchFolder & "\" & "*.xls")
Do While FoundFolder <> ""
FoundFolder = Dir()
If FoundFolder = "" Then
Exit Do
ElseIf InStr(FoundFolder, CEID_1) and InStr(FoundFolder, CEID_2) Then
bestimmte Datei oeffnen und bearbeiten
Exit do
End If
Loop
Waere wirklich super wenn mir hierzu jemand helfen koennte. Muss die Anwendung umgehend fertig bekommen weil mein Chef mir schon im Nacken sitzt.
Vielen Dank fuer Eure schnelle Hilfe.