Dateinamen einlesen
16.02.2004 17:17:06
Claudia
ich hoffe Ihr könnt mir auch diesmal wieder helfen. Ich lese mit nachstehendem Makro alle Dateien eines Verzeichnisses in Spalte A ab der ersten freien Zeile ein.
Nun wird aber der Name (p.Name) immer mit der Endung der jeweiligen Datei angezeigt.
Wie muss ich mein Makro ändern, dass NUR der NAME ohne ENDUNG angezeigt wird.
Public
Sub lesen()
Dim fso As New FileSystemObject
Dim f As Folder
Dim p As File
Dim str As String
Dim aktuell As String
Set WS = Worksheets("TEST") 'Bitte hier den Namen des Tabellenblattes anpassen
Set fso = New FileSystemObject
Set f = fso.GetFolder("E:\Testordner") 'hier bitte den Pfad anpassen
h = 0
l = 1
Do While h <> 1
If Sheets("TEST").Cells(l, 1) = 0 Then 'Bitte hier den Namen des Tabellenblattes anpassen
h = 1
Else
l = l + 1
End If
Loop
leer = l
i = leer
For Each p In f.Files
Sheets("TEST").Cells(i, 1) = p.Name 'Bitte hier den Namen des Tabellenblattes anpassen
i = i + 1
Next
End Sub
Bitte helft mir. Vielen Dank im voraus
Gruß
Claudia