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
|