---

Ich möchte in einer Inputbox einen Pfad angeben.

Kann ich in einer Inputbox einen Button einfügen, der auf den Explorer zugreift in dem ich dann eine Datei auswählen kann?

Hab schon überall gesucht aber nichts gefunden.

------------------
Anfänger!

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

---

Hallo,

google mal einfach nach "FileSelectionBox" oder Forumsuche mit gleichem Wort.

[Diese Nachricht wurde von imation1999 am 24. Okt. 2013 editiert.]

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

---

Hallo,

Über inputbox

Code:

---

Pfad = "D:\Pf"
Pfad = InputBox ("Bitte geben Sie denn Speicher Ort  ein.", "Eingabe Speicher Ort", Pfad)

---

und hier über einen Dialog (z.B. Speichern...)

Code:

---

Datei = CATIA.FileSelectionBox (Text, "*.nix", CATFileSelectionModeSave)
Pfad = Left(Datei, InStrRev(Datei, "\") )

If Datei = Abort Then
Exit Sub
end if

---

------------------
Sei Schlau bleib Dumm !!?!!

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

---

Das sind schonmal gute Ansätze aber ich brauche in dem Sinne keine FileSelectionBox, sondern eine Art PathSelectionBox.
Ich kann keine Datei auswählen, da die Datei noch nicht existiert.

Brauche einen String als Ausgabewert der den Pfad repräsentiert.

Meine Makro funktioniert wenn ich ein Ordner öffne und den Pfad kopiere und in eine Inputbox einfüge, das ist aber nicht sehr Benutzerfreundlich.

Dim pfad As String
pfad = InputBox("Bitte geben Sie den Pfad des Speicherorts an." & vbCrLf & "Kein Backslash am Pfadende!", "Speicherort", "C:\Users")
If pfad = "" Then
Exit Sub
End If

------------------
Anfänger!

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

---

Dann nutze mal folgede Code:

Code:

---

Dim objShell
Dim objFolder
        set objShell = CreateObject("shell.application")
        set objFolder = objShell.BrowseForFolder(0, "Select a folder", 0, "C:\")
On Error Resume Next
                if (not objFolder is nothing) then
     objFolder  =  objFolder.self.Path
end if
  On Error GoTo 0
            set objFolder = nothing
        set objShell = nothing

---

[Diese Nachricht wurde von imation1999 am 24. Okt. 2013 editiert.]

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

---

Servus
Such mal hier im Forum und im Inet nach "BrowseForFolder".

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Das ist Exakt das was ich suche.

Weiß aber nicht wie ich den Pfad als String bekomme.

In objFolder steckt nur der Name des Ordners als String.

------------------
Anfänger!

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

---

Code:

---

Pfad = objFolder.self.Path

---

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

---

Herzlichen Dank!

Sorry! Programmiere erst seit Montag 

------------------
Anfänger!

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