Office: Excel 2010/VBA: Dateinamen auslesen & von beiden Seiten kürzen

Hallo zusammen,

mein Chef hat mich gebeten, eine Excel Datei zu erstellen, in der sämtliche Dateinamen ohne überflüssige Komponenten (sämtliche Namensteile vor dem letzten "_") sowie ohne Dateisuffix (in diesem Fall ".xml") eines Ordners aufgeführt werden.

Als begeisterter VBA Novize habe ich mich voller Elan in die Aufgabe gestürzt und bin nach mehreren Bruchlandungen bei folgendem Code-Flickenteppich (da aus mehreren Quellen zusammengeschustert) angelangt:
___
Sub Auflisten1()

Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object

Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("C:Ordnerpfad")
Set objDateienliste = objVerzeichnis.Files

lngZeile = 1

For Each objDatei In objDateienliste

If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = Right(objDatei.Name, 19)


n = InStrRev("C:Ordnerpfad", "_")
If n > 0 Then
ExtractFileName = Right$("C:Ordnerpfad", n - 1)
Else
ExtractPath = ""

End If
lngZeile = lngZeile + 1
End If
Next objDatei

End Sub
___

Dieser Code erfüllt die Aufgabe, dass er die Dateinamen nach dem letzten "_" ausliest, allerdings weiß ich nicht, wie ich zusätzlich dazu noch die Dateiendung (".xml) abschneiden kann. Es wäre super, wenn es hier jemanden geben könnte, der mir weiterhelfen kann. Danke fürs Lesen!

VG
Ole

:)

 

Schau Dir das FSO an, z.B.
Code:

Arbeite erstmal mit mit Early Binding, dann kriegst Du IntelliSense.