Thema Datum  Von Nutzer Rating
Antwort
Rot Strings vergleichen
 29.11.2018 13:08:47 Vynix
NotSolved
29.11.2018 13:39:46 Gast16776
NotSolved
29.11.2018 14:53:53 Vynix
NotSolved
29.11.2018 14:56:17 Gast64566
NotSolved
30.11.2018 07:53:18 Vynix
NotSolved
30.11.2018 08:50:53 Gast72566
Solved
30.11.2018 11:34:54 Vynix
NotSolved

Ansicht des Beitrags:
Von:
Vynix		 Datum:
29.11.2018 13:08:47		 Views:
1121		 Rating:
     
Antwort:
  Ja
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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Strings vergleichen
 29.11.2018 13:08:47 Vynix
NotSolved
29.11.2018 13:39:46 Gast16776
NotSolved
29.11.2018 14:53:53 Vynix
NotSolved
29.11.2018 14:56:17 Gast64566
NotSolved
30.11.2018 07:53:18 Vynix
NotSolved
30.11.2018 08:50:53 Gast72566
Solved
30.11.2018 11:34:54 Vynix
NotSolved