Hallo Gemeinde

ich habe ich VBS ein kleines Programm geschrieben, indem ich bestimmte Dateien (im meinen Fall *.dat und *.txt) von Komma in Punkt umwandeln lasse. Das Programm funktioniert auch soweit so gut. Nun habe ich das Problem, wenn eine Datei mit einer anderer Endung in meinen ausgewählten Ordner ist, geht mein Programm in die die Else-Schleife und meine msgbox sagt keine Datei gefunden.
Was stimmt an meinen Quellcode nicht. Vielleicht kann mir ja jemand helfen.

Danke

Option Explicit
Dim FSO, Dateipfad, Ordner, Inhalt, Datei, Zaehler, Input, Endung

Dim objShell : Set objShell = CreateObject("Shell.Application")
Dim objFolder : Set objFolder = objShell.BrowseForFolder(0, "Bitte waehlen Sie den Ordner aus.", &H0010, "")

If objFolder Is Nothing Then
WScript.Quit
End If

set FSO = CreateObject("Scripting.FileSystemObject")
set Ordner = FSO.GetFolder(objFolder.Self.path)
Set Dateipfad = Ordner.Files
Zaehler = 0
Input = InputBox("Welche Dateiendung soll gestartet werden?"&VbCRLF&VbCRLF&"1 = dat-File"&VbCRLF&"2 = txt-File")

Select Case Input
Case "1"
Endung = "dat"
Case "2"
Endung = "txt"
Case else
MsgBox " Ungeeignete Eingabe!", vbSystemModal, "Abbruch"
End Select

for each File in Dateipfad
If Endung = right(File, 3) Then
If FSO.FileExists(File) Then
Inhalt = FSO.OpenTextFile(File).ReadAll()
Inhalt = Replace(Inhalt, ",", ".")
Set Datei = FSO.OpenTextFile(File, 2)
Datei.Write Inhalt
Datei.Close
Zaehler=Zaehler + 1
End If
Else
msgbox" Keine Dateien gefunden.", vbSystemModal, "Ende"
WScript.Quit
End If

Next

msgbox Zaehler &" Datei(en) fertig generiert", vbSystemModal, "Ende"

Hallo VaporiZed

erstmal danke für deine schnelle Antwort. Die Else Funktion wollte ich haben wenn überhaupt keine Datei mit meiner Endung im Ordner gefunden wird. Was meinst du mit Flag setzen. Kannst du mir hier helfen?

Guten morgen

Auf die Variable Zaehler meinen Abbruch zu machen hab ich gar net daran gedacht. Super Idee. Werd es am Montag gleich mal ausprobieren. Vielen Dank