Dateinamen aus Pfad extrahieren

Forumthread: Dateinamen aus Pfad extrahieren

15.12.2020 13:05:07

Jonathan

Folgende Aufgabenstellung habe ich:
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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateinamen aus Pfad extrahieren

15.12.2020 13:14:31

ChrisL
AW: Dateinamen aus Pfad extrahieren

15.12.2020 14:11:51

Jonathan
AW: Dateinamen aus Pfad extrahieren

15.12.2020 14:11:52

Jonathan
Hat Funktioniert

15.12.2020 14:13:14

Jonathan
AW: Dateinamen aus Pfad extrahieren

15.12.2020 13:18:58

Nepumuk

AW: Dateinamen aus Pfad extrahieren

15.12.2020 13:14:31

ChrisL

Sub t()
Dim varDateiPfad As Variant, strDateiName As String
varDateiPfad = Application.GetOpenFilename()
If varDateiPfad = False Then Exit Sub
strDateiName = Right(varDateiPfad, Len(varDateiPfad) - InStrRev(varDateiPfad, "\"))
MsgBox strDateiName
End Sub

cu
Chris

AW: Dateinamen aus Pfad extrahieren

15.12.2020 14:11:51

Jonathan

Vielen Dank Chris,
das hat wunderbar funktioniert!
Gruß
JoS

AW: Dateinamen aus Pfad extrahieren

15.12.2020 14:11:52

Jonathan

Vielen Dank Chris,
das hat wunderbar funktioniert!
Gruß
JoS

Hat Funktioniert

15.12.2020 14:13:14

Jonathan

Vielen Dank Chris!

AW: Dateinamen aus Pfad extrahieren

15.12.2020 13:18:58

Nepumuk

Hallo Jonathan,
würde ich so machen:

Public Sub cbtn_Anhang_Click()

    Dim vntPath As Variant
    Dim strFileName As String

    '** Laufwerk und Pfad definieren, welcher geöffnet werden soll
    ChDrive "C"
    ChDir "C:\"

    '** Den im Dialogfeld gewählten Namen auslesen
    vntPath = Application.GetOpenFilename() 'Holt den gesamten Pfadname der Datei

    '** Prüfen, ob eine gültige Datei ausgewählt wurde
    If vntPath <> False Then

        strFileName = Dir$(vntPath)

        '** 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 If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Forumthread: Dateinamen aus Pfad extrahieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread