Explorer öffnen, Unterordner variabel
01.09.2006 12:41:11
mtremer
ich öffne mit folgendem Code den Explorer:
Dim pfad As String
pfad = "C:\Eigene Dateien\"
Shell "Explorer " & pfad, vbNormalFocus
Nun aber möchte ich eine Erweiterung.
Der Anfangsbuchstabe eines Namens in der Zelle A1 gibt den Unterordner vor. Dieser Unterordner soll nun aufgerufen werden.
ingUR hatte mir mal zu Speichern und Auswählen des Ordners einen Code gebastelt (danke nochmal hierfür). Hier ein Auszug:
Select Case Left(UCase(strFName), 1)
Case "A": strPathName = "A"
Case "B": strPathName = "B"
Ich habe versucht auf dieser Grundlage meinen Code zum Öffnen des Unterordners im Explorer umzugestalten, aber ich verstehe VBA nicht gut genug, damit es klappt.
Kann mir jemand helfen?
Danke für Eure Mühe.
Viele Grüße
Marco