Über eine Schaltfläche in einer UF möchte ich dem Nutzer die Möglichkeit geben, den Ordner "Texte" zu öffnen, der sich imselben Ordner befindet, wie die Arbeitsmappe. Soweit ich das bisher gesehen habe, muss man da ja wohl mit FSO arbeiten.
Mein unfertiger Code sieht so aus (die Variable strOrdner gibt auch den richtigen Pfad wieder. Aber ich kriege den Ordner nicht auf. (Weder in meinen Büchern, noch in der Recherche habe ich was gefunden - da wird überall nur neu angelegt.)
Private Sub cmdTextDat_Click()
Dim FSO As Object, strOrdner As String, Ordner As Object
strOrdner = ActiveWorkbook.Path & "\Texte"
Msgbox "Mit diesem Makro öffnen Sie den Ordner mit den Textdateien." & Chr(10) & _
"Wenn Sie versehentlich die Namen bestehender Textdateien umbenennen, " & Chr(10) & _
"können diese nicht mehr angezeigt werden!""", vbInformation, "Wichtiger Hinweis!"
'ActiveWorkbook.WindowState = xlMinimized
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ordner = FSO.getfolder(strOrdner)
'''Und nun?
End Sub
Danke für Eure Hilfe.Grüße, Fritz