Dim Dateien() As String = IO.Directory.GetFiles("C:\Program Files\test")
        For Each Datei As String In Dateien
            Dim AlterInhalt As String = IO.File.ReadAllText(Datei)
            Dim NeuerInhalt As String = AlterInhalt.Replace(".", ",")
            Dim NeuerDateiName As String = IO.Path.ChangeExtension(Datei, _
              ".dat")
            IO.File.WriteAllText(NeuerDateiName, NeuerInhalt)
        Next

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co