---

Hallo zusammen!

Kann man bei diesem Ordner-Auswahl-Dialog Aufruf es so einrichten, daß dieser ab einem bestimmten Verzeichnis / Ordner startet?

z. B.: C:\BAZ

Code:

---

Private Sub cmdUnterordner_Click() ' Ordner-Auswahl-Dialog aufrufen
    Dim oShell As Object
    Dim oFolder As Object

    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
End Sub

---

Vielen Dank im voraus für Eure Hilfe.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Dirk,

Sicher geht das:

Code:

---

Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1, "c:\acad\")

---

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten!

Vielen Dank, so gehts.
Warum funktioniert es aber nicht, wenn ich mir zum Beispiel c:\acad
als String zusammenstelle.
UserForm2.TextBox1.Text = c:\acad

Code:

---

Dim oStart As String
oStart = UserForm2.TextBox1.Text & "\"

---

Code:

---

Private Sub cmdUnterordner_Click() ' Ordner-Auswahl-Dialog aufrufen
    Dim oShell As Object
    Dim oFolder As Object
    Dim oStart As String
    oStart = UserForm2.TextBox1.Text & "\"
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1, oStart)
End Sub

---

??????

Gruß

Dirk

PS. zu dem Text / Schraffur / Polylinie melde ich mich nochmal bei Dir.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Dirk,

Änder mal

Code:

---

Dim oStart As String

---

in

Code:

---

Dim oStart As Variant

---

So sollte es dann klappen.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten!

Danke.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP