Ordner suchen nach Namensbestandteil

Bild

Betrifft: Ordner suchen nach Namensbestandteil
von: Ingo Harder
Geschrieben am: 03.04.2005 08:19:16
Hallo,
in einem Verz. (feststehender Pfad) sind etliche Unterordner (in einer
Ebene) enthalten, die alle mit
dem jeweiligen Usernamen beginnen (8stellig) plus weiterer individueller
Angaben.
Den jeweils angemeldeten User bekomme ich per VBA ausgelesen.
Wie kann ich das Verz. nach dem Unterordner durchsuchen,
dessen Bezeichnung mit dem Namen des angemeldeten User beginnt
und diesen Ordner dann öffnen lassen ?
Danke
Ingo

Bild

Betrifft: AW: Ordner suchen nach Namensbestandteil
von: Oberschlumpf
Geschrieben am: 03.04.2005 09:12:31
Hi Ingo
In einem Verzeichnis sind 3 Unterverzeichnisse gespeichert:
Userbild

(mein Username ist GobiUser)
Mit diesem Makro...


Sub DirOpen()
    Dim lstrVerz As String
    
    lstrVerz = Dir("DEIN FESTES VERZEICHNIS\*" & Environ("username") & "*", vbDirectory)
    
        If lstrVerz <> "" Then
            ChDrive (Left("DEIN FESTES VERZEICHNIS\", 3))
            ChDir ("DEIN FESTES VERZEICHNIS\" & lstrVerz)
            Open "Bsp-Datei.txt" For Append As #1
            Close
        End If
            
End Sub

...suche ich in DEM Verzeichnis, in dem die 3 Unterverzeichnisse gespeichert sind, nach DEM Verzeichnis, welches meinen Usernamen als Textteil enthält (hier GobiUser-xls).
Wenn gefunden, wird mit ChDrive und ChDir in dieses Verzeichnis gewechselt, und es wird eine Bsp-TXT-Datei erstellt.
Wichtig!
Im VBA-Code musst Du für "DEIN FESTES VERZEICHNIS" eben auch genau den Pfad für das von Dir bekannte Verzeichnis eintragen. Der Backslash ("\") darf nicht gelöscht werden.
Konnte ich denn helfen?
Ciao
Thorsten
Bild

Betrifft: AW: Ordner suchen nach Namensbestandteil
von: Ingo Harder
Geschrieben am: 04.04.2005 14:49:07
Hallo Thorsten,
dass war eine klasse Antwort ;-)
Damit konnte ich nun gezielt das Verz. des angemeldeten
User deklarieren und als Parameter für einen call shell
an den Explorer übergeben - perfekt.
Vielen Dank !
Gruß, Ingo
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ordner suchen nach Namensbestandteil"