Datei einlesen ohne Endung
17.01.2023 19:40:51
oraculix
In meiner Listbox der Userform lese ich Dateinamen ein. (funktioniert auch mit untenstehendem Code)
Nur das Problem ist das Datei Endung .html auch in die Listbox eingelesen wird.
Frage :
Wie kann ich die Dateinamen ohne Endung .html in die Listbox der Userform einlesen?
Beispiel: Rambo.html es sollte aber nur Rambo in der Listbox stehen.
Private Sub UserForm_Initialize()
Dim objFile As Object
Dim FileSystem As Object
Top = -2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Dim objFolder As Object
Set objFolder = FileSystem.GetFolder("D:\HtmlDateienExcel")
For Each objFile In objFolder.Files
Lst_Treffer.AddItem objFile.Name '''''' ' Lst_Treffer = Name der Listbox
Next objFile
Lst_Treffer.ListIndex = 1
End Sub
DankeGruß
Oraculix
Anzeige