Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Dateien auslesen, Pfadangabe abschneiden"
Alle Dateien im Verzeichnis öffnen Dateien listen
400 leere Textdateien anlegen XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken Textdateien verbinden