Hallo Schwarminteligenz

ich habe folgendes Problem:

Beim untenstehenden code möchte ich die Dateiendung auslesen und wenn es die richtige ist den dateinamen in eine listbox schreiben. Die funktion für die dateiendung funktioniert top aber die if Abfrage will auch bei richtigen resultaten einfach nicht True gehen. Hattet ihr das Problem auch schon und sogar eine lösung parat?

Vielen dank im voraus Vynix

Public Function Dateiendung(ByVal vDateiname As String) As String '' giebt die dateiendung der gewählten datei als string aus


  Dim sEndung As String
  Dim iWortlaenge As Integer
  Dim iStellePunkt As Integer

  iWortlaenge = Len(vDateiname)                            ' Anzahl Zeichen des Dateinamens
  iStellePunkt = InStrRev(vDateiname, ".")                 ' Anzahl Zeichen vor dem letzten Punkt
  sEndung = Right(vDateiname, iWortlaenge - iStellePunkt)  ' Dateiendung wird extrahiert
  Dateiendung = sEndung
End Function



Set fVerz = fs.getFolder(Automationsordner & "\" & "06_Programm" & "\" & "SPS")
Set colSubfolders = fVerz.Subfolders
For Each objSubfolder In colSubfolders

    spsFilesuche = objSubfolder.name

Set fVerz = fs.getFolder(Automationsordner & "\" & "06_Programm" & "\" & "SPS" & "\" & spsFilesuche)
Set fdateien = fVerz.Files

For Each fDatei In fdateien

If InStr(fDatei, "") > 0 Then
 
    strDat = fDatei.name & vbLf
    
    
    
    If Dateiendung(strDat) = "wsw" Then ''dieses if tut blöd
    ListBox9.AddItem strDat
    End If
End If

Next fDatei

Set fVerz = fs.getFolder(Automationsordner & "\" & "06_Programm" & "\" & "SPS")
Set colSubfolders = fVerz.Subfolders

Next objSubfolder