Dateinamen aus Pfad extrahieren
15.12.2020 13:05:07
Jonathan
Ich will eine Ausgewählte Datei in einen bestimmten Ordner kopieren. Filename ist deklariert.
Ich schaffe das auch mit copyfile aber ich muss einen expliziten Namen geben. Nun wollte ich aus der Dateipfad den Dateinamen als Variable extrahieren. Das habe ich leider nicht mehr geschafft.
Public Sub cbtn_Anhang_Click()
'** Laufwerk und Pfad definieren, welcher geöffnet werden soll
ChDrive "C"
ChDir "C:\"
'** Den im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename() 'Holt den gesamten Pfadname der Datei
strFile = IRGENDWAS MIT .GETFILENAME(strFileName) 'DA WEIß ICH NICHT WEITER
'** Prüfen, ob eine gültige Datei ausgewählt wurde
If strFileName = False Then Exit Sub
'** Hinweis ausgeben
MsgBox "Der Dateipfad " & strFileName & " wurde kopiert. Die Datei wird bei Drücken des Buttons _
_
""Daten in Liste Eintragen"" in den Ordner für den Eintrag kopiert .", vbInformation, "Hinweis"
End Sub