Dateien auslesen, Pfadangabe abschneiden

Bild

Betrifft: Dateien auslesen, Pfadangabe abschneiden von: Andreas
Geschrieben am: 18.02.2005 17:44:20

Hallo zusammen,

ich lasse mir Dateinamen von Excel aus Ordnern auslesen.

Das Skript (Siehe unten) gibt mir die kompletten Pfade an.
Ich brauche aber nur die Dateinamen.
Wie kann ich alles was links vom Backslash-Zeichen (inklusive) abschneiden?


Sub Datei_finden()
Dim i As Long
With Application.FileSearch
    .NewSearch
    .LookIn = Range("C1").Value
    .SearchSubFolders = True
    .Filename = Range("B1").Value
    .Execute
    For i = 1 To .FoundFiles.Count
       Cells(i, 1) = .FoundFiles(i)
    Next
End With
Columns.AutoFit
End Sub



Vielen Dank,

Andreas
Bild


Betrifft: AW: Dateien auslesen, Pfadangabe abschneiden von: Reinhold
Geschrieben am: 18.02.2005 17:50:35

Hallo Andreas,

z.B.

Dat = "c:\Daten\abc.xls"
MagBox mid( Dat, instrrev(s, "\") + 1 )

Grüße Reinhold


Bild


Betrifft: AW: Dateien auslesen, Pfadangabe abschneiden von: Tim
Geschrieben am: 18.02.2005 17:57:25

Option Explicit
Dim i As Long
With Application.FileSearch
    .NewSearch
    .LookIn = Range("C1").Value
    .SearchSubFolders = True
    .Filename = Range("B1").Value
    .Execute
    For i = 1 To .FoundFiles.Count
       Cells(i, 1) = cutter(.FoundFiles(i))
    Next
End With
Columns.AutoFit
End Sub
Private Function cutter(Pfad As String) As String
Dim l As Integer
l = InStrRev(Pfad, "\") + 1
cutter = Mid(Pfad, l, 100)
End Function


Tim


Bild


Betrifft: AW: Dateien auslesen, Pfadangabe abschneiden von: Tim
Geschrieben am: 18.02.2005 17:57:43

Option Explicit
Dim i As Long
With Application.FileSearch
    .NewSearch
    .LookIn = Range("C1").Value
    .SearchSubFolders = True
    .Filename = Range("B1").Value
    .Execute
    For i = 1 To .FoundFiles.Count
       Cells(i, 1) = cutter(.FoundFiles(i))
    Next
End With
Columns.AutoFit
End Sub
Private Function cutter(Pfad As String) As String
Dim l As Integer
l = InStrRev(Pfad, "\") + 1
cutter = Mid(Pfad, l, 100)
End Function


Tim


Bild


Betrifft: AW: Dateien auslesen, Pfadangabe abschneiden von: Andreas
Geschrieben am: 21.02.2005 12:06:49

Hallo Reinhold, hallo Tim,

viiiieelen Dank.
Funktioniert wunderbar.
Ihr habt mir sehr weitergeholfen.

Ciao,
Andreas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateien auslesen, Pfadangabe abschneiden"