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"
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"