Office: Nach einer Datei suchen in mehreren Ordnern?

Hallo,

Vielleicht kann mir hier ja wer helfen,
das Macro bezieht sich auf ein Maintenance-File das diverse namen beinhaltet.
Mit "aarPaths" will ich in mehreren verzeichnissen schauen ob die Datei zufällig in einem
davon liegt, wenn ja - Soll er wie gewohnt weiter machen, wenn nein, abbrechen.

Problem ist jetzt, sobald das Laufwerk nicht verfügbar ist, also T, E oder sowas bekomme ich einen Runtime fehler.

Wie könnte man das besser gestalten? Er soll quasi in jedem ordner vorbei schauen, ob die datei dort vorhanden ist.
Sie kann z.b. in jedem (was ich dann wohl ignorieren würde), kann aber auch sein das sie in keinem ist.

Würde mich freuen wenn wer ne idee hat..

 

Hi,
prüfe mittels

DIR(LW-Buchstabe, vbDirectory)

ob es da etwas zu finden gibt und stopple das Array nur mit existierenden Verzeichnissen zusammen

 

Vielen Dank für die Rückmeldung, aber ich glaube ich bin mir nicht sicher wie du das meinst
Sorry

 

Hi,

zb:
if dir("C:\Temp", vbDirectory) <> "" then ArrayTeil1 = "C:\Temp" else ArrayTeil1 = ""

if dir("E:\Temp", vbDirectory) <> "" then ArrayTeil2 = "C:\Temp" else ArrayTeil2 = ""

 

Hi,

so richtig klar ist deine Fragestellung nicht. Geht es nun darum zu prüfen:
- ob ein bestimmtes Laufwerk vorhanden ist?
- ob auf einem bestimmten vorhandenen Laufwerk in irgendeinem Unterordner eine bestimmte Datei vorhanden ist?
- ob ein bestimmtes Laufwerk überhaupt vorhanden und dort in irgendeinem Unterordner eine bestimte Datei vorhanden ist?

---

 

@Crazy Business vielen Dank für den Ansatz, werde es mal versuchen durch zuspielen. :)

@Beverly

Sorry für das Durcheinander, also ich will 3-4 Ordner haben die ich dann anpasse wie ich sie brauche auf unterschiedlichen Laufwerken.
Es kann sein das die Datei in jedem liegt, aber auch in gar keinem.
Aktuell so wie das Macro geschrieben ist funktionier es auch, aber wenn ich es jetzt an einem Computer ausführe der z.b. kein T:\ Laufwerk hat sondern nur C,D (auch wenn diese ebenfalls in der Liste sind) kommt es zu einem Runtime error.


Deshalb suche ich nach einer Möglichkeit das ganze zu ändern das er sich daran nicht mehr stört.

Also in meiner Vorstellung soll er suchen z.b. „T:\REF\“ nichts gefunden > weiter, „C:\TEMP\“ nichts gefunden > weiter, „D:\TEMP\“ gefunden > Macro weiter ausführen mit der Datei.

Aktuel ist z.b. das T:\ Laufwerk gar nicht vorhanden und dann kommt es zu einem Run-Time Error?! (aber theoretisch sollte ihn das nicht stören, weil er noch andere in der liste hat)

Hoffe das ist jetzt besser erkläre ☹

 

Hi Lizz,

versuche es mal nach diesem Prinzip - zuerst wird geprüft, ob das LW überhaupt vorhanden ist und anschließend, ob in den im Code festgelegten Unterverzeichenissen die Mappe vorhanden ist:

Code:

Public Sub LauferkVorhanden()
    Dim Fs
    Dim lw
    Dim strSuchMappe As String
    Dim arrPaths()
    Dim intPath As Integer
    arrPaths = Array("Temp", "Versuch", "Z_Test\Test", "Z_Test") '<== Verzeichnisse/Unterverzeichnisse in denen gesucht werden soll
    strSuchMappe = "25-11-2015.xlsx" '<== Name der Mappe die gesucht werden soll
    Set Fs = CreateObject("Scripting.filesystemobject")
    For Each lw In Fs.drives
        Select Case lw.Path
            ' hier die Laufwerke angeben auf denen gesucht werden soll
            Case "E:", "Z:"
                If lw.isready Then
                    For intPath = 0 To UBound(arrPaths())
                        If Dir(lw.Path & "\" & arrPaths(intPath) & "\") <> "" Then
                            If Dir(lw.Path & "\" & arrPaths(intPath) & "\" & strSuchMappe) <> "" Then
                                ' Mappe öffnen wenn im Verzeichnis gefunden
                                Workbooks.Open lw.Path & "\" & arrPaths(intPath) & "\" & strSuchMappe
                                Exit For
                            End If
                        End If
                    Next intPath
                End If
        End Select
    Next
    Set Fs = Nothing
End Sub

Eine generelle Frage stellt sich aber: wenn die Mappe in mehreren Verzeichnissen vorkommt - wie legst du dann fest, welche davon geöffnet werden soll?

---