Dir-Funktion mit Variable
07.11.2019 13:20:52
Nina
ich habe ein Problem mit der "Dir"-Funktion.
In meinem Programm kann der Benutzter bisher über ein UserFormular eine Datei auswählen (funktioniert gut), der Pfad wird zur Überprüfung nochmal in einem Textfeld angezeigt.
Den ausgwählten Dateipfad speichere ich in der Variablen "strOrdner", also z.B
"C:\User\Desktop\Datei.xlsx\"
Jetzt bräuchte ich für die nächsten Schritte nicht den ganzen Pfad, sondern nur den Dateinamen "Datei.xlsx".
Die "Dir"-Funktion erzeugt nur den Laufzeitfehler ("52 - Dateiname- oder nummer falsch").
Mit VBA beschäftige ich mich leider erst seit ein paar Wochen, deswegen entschuldigie ich mich schon einmal im vorraus, falls diese Frage schon 100 mal beantowrtet wurde, aber ich habe schon so viele Möglichkeiten aus dem Internet versucht und nichts hat funktioniert.
Vielleicht kann mir hier ja jemand helfen :-)
Vielen Dank schonmal im vorraus!
Gruß
Nina
Hier mein Code
Private Sub cmdDatei_Click()
Dim strOrdner As String
Dim Dateiname As String
Dim Datei As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "C:\"
.AllowMultiSelect = False
.Title = "Parameterdatenbank"
.ButtonName = "Auswahl..."
.Filters.Add "Excel-Datein", "*.xls; *.xlsx", 1
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1) "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
txtDatei = strOrdner
Dateiname = VBA.Dir(strOrdner) 'Hier wird immer ein Fehler gemeldet. Nur "Dir( _
strOrdner)" funktioerniert erst recht nicht...
End With
MsgBox "Soll """ & Dateiname & """ genommen werden?"
If strOrdner = "" Then MsgBox "No Folder selected!", vbExclamation, "Warning"
End Sub