Thema Datum  Von Nutzer Rating
Antwort
11.09.2013 11:21:59 Dirk
NotSolved
11.09.2013 11:24:22 Dirk
NotSolved
Rot Suchfunktion: Zusammengesetzte Ordnerpfade im Explorer öffnen
11.09.2013 12:40:20 Gast96089
****
NotSolved
11.09.2013 12:51:37 Gast12786
NotSolved
11.09.2013 13:21:56 Gast89250
*****
NotSolved
11.09.2013 13:33:06 Dirk
NotSolved
11.09.2013 13:44:51 Trägheit
NotSolved
11.09.2013 13:46:59 Gast50242
NotSolved

Ansicht des Beitrags:
Von:
Gast96089
Datum:
11.09.2013 12:40:20
Views:
1679
Rating: Antwort:
  Ja
Thema:
Suchfunktion: Zusammengesetzte Ordnerpfade im Explorer öffnen

Hi,

ich halte die Sache erst mal allgemein.

So kann man (Unter-)Verzeichnisse - mit VBA eigenen Mitteln - innerhalb eines Verzeichnisses (Root) ermitteln.

  Dim strRoot     As String
  Dim strFolder   As String
  
  strRoot = "\\Serverfarm\Server\Hier\geht\es\zum\Ordner\des\Klienten\"
  
  If Right$(strRoot, 1) <> "\" _
    Then strRoot = strRoot & "\"
  
  strFolder = Dir$(strRoot, vbDirectory)
  Do Until strFolder = ""
    
    If GetAttr(strRoot & strFolder) = vbDirectory Then
      ' Ausgabe im Direktbereich von VBA (ggf. einblenden mit STRG+G [bzw. siehe Menü 'Ansicht'])
      Debug.Print "folder '" & strFolder & "' in '" & strRoot & "'"
    End If
    
    strFolder = Dir$
  Loop

 

Wenn du nach einem bestimmten (Unter-)Verzeichnis suchst, muss eine weitere Bedingung zutreffen.

z.B.

If strFolder Like "* " & strName & ", " & strVorname & " *" Then
  ' ...
End If

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.09.2013 11:21:59 Dirk
NotSolved
11.09.2013 11:24:22 Dirk
NotSolved
Rot Suchfunktion: Zusammengesetzte Ordnerpfade im Explorer öffnen
11.09.2013 12:40:20 Gast96089
****
NotSolved
11.09.2013 12:51:37 Gast12786
NotSolved
11.09.2013 13:21:56 Gast89250
*****
NotSolved
11.09.2013 13:33:06 Dirk
NotSolved
11.09.2013 13:44:51 Trägheit
NotSolved
11.09.2013 13:46:59 Gast50242
NotSolved