Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Strings vergleichen |
29.11.2018 13:08:47 |
Vynix |
|
|
|
29.11.2018 13:39:46 |
Gast16776 |
|
|
|
29.11.2018 14:53:53 |
Vynix |
|
|
|
29.11.2018 14:56:17 |
Gast64566 |
|
|
|
30.11.2018 07:53:18 |
Vynix |
|
|
|
30.11.2018 08:50:53 |
Gast72566 |
|
|
|
30.11.2018 11:34:54 |
Vynix |
|
|
Von:
Vynix |
Datum:
29.11.2018 13:08:47 |
Views:
893 |
Rating:
|
Antwort:
|
Thema:
Strings vergleichen |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Strings vergleichen |
29.11.2018 13:08:47 |
Vynix |
|
|
|
29.11.2018 13:39:46 |
Gast16776 |
|
|
|
29.11.2018 14:53:53 |
Vynix |
|
|
|
29.11.2018 14:56:17 |
Gast64566 |
|
|
|
30.11.2018 07:53:18 |
Vynix |
|
|
|
30.11.2018 08:50:53 |
Gast72566 |
|
|
|
30.11.2018 11:34:54 |
Vynix |
|
|