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"