Hallo Forum, ich hab heut noch mal eine Frage zu den Windowsdialog "Ordner Suchen". Wie ihr sicherlich noch wisst, meldete ich mich bereits vor einigen Wochen zu diesem Thema, wo ich dabei hängen blieb, dass der folgende Code nicht funktionierte:
Private Sub folder()
Dim oShell As Object
' Dim oFolder As Object
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
If Not oFolder Is Nothing Then
TextBox1.Value = oFolder.Self.Path 'Texbox1 bekommt den Pfad zugewiesen.
End If
End Sub
In der Zeile "TextBox1.Value = ..." meldet Vba: "Objekt unterstückt Eigenschaft oder Methode nicht".
Als ich diesen Code mit Einzelsatz abarbeitete, bemerkte ich im Lokal-Fenster, dass die Ausdrücke ".Self" und ".Path" nicht existieren. Deshalb vermute ich, eine zu alte ActiveX Library zu benutzen.
Meine Frage: Hat jemand eine Idee wie ich gegebenen Falls eine aktuellere DLL einbetten kann, bzw. wie ich dieses Problem endlich beheben kann?
------------------
MfG A. Einstein
P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP