GetDiretory anpassen
27.02.2013 20:42:00
Lemmi
ich möchte einen GetDirectory anpassen weiß aber nicht wie!
Dieser Code ist zwar variabel, leider habe ich eine sehr lange Verzeichnisstruktur die ich jetzt vorselektieren möchte!
In meinem Tabellenblatt "Inhalt" auf C43 steht ein Projektverzeichnis!
Wird C43 und das da hinterlegte Verzeichnis geändert so soll auch jeweils das angepasste Verzeichnis ausgelesen werden.
Z.B. Zelle C43 Arbeitsblatt Inhalt -->C:\Haus\Katze\Hund\Fotos\2007 (Teil 1)
Nach der Selektion soll die Verzeichnisauswahl, wie üblich durchgeführt werden können...also GetDiretory.....(Teil 2)
Mit der Ergänzung wird die Auswahl des Verzeichnisses abgeschlossen.
Das nachfolgende Makro ist der zu ändernde "Abschnitt"
Private Sub CommandButton1_Click()
If Val(Application.Version) "" Then
ChDrive Left(TextBox1, 2)
ChDir TextBox1
End If
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = True Then
TextBox1 = fd.SelectedItems(1)
End If
ChDrive AktLW
ChDir AktPfad
End If
End Sub
Gruß
Lemmi