Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Anwenden einer Routine auf alle Dateien eines Verzeichnisses
Autor: chabba
Datum: 23.08.06 08:43
Hallo zusammen, ich habe mir für ein kleines Tool erstellt, welches in Textdatein Punkte durch Kommas ersetzt. Hier mal der Code: Dim ipath As String Dim epath As String Dim fileReader As String ipath = "C:\GFE\CAE_DMU\MESHDATA\BDF\testbsp.bdf" epath = "C:\GFE\CAE_DMU\MESHDATA\DAT\testbsp.dat" 'Text aus Datei lesen fileReader = My.Computer.FileSystem.ReadAllText(ipath) 'Ersetzen im Text "." durch "," fileReader = Replace(fileReader, ".", ",", 1) 'Text in Datei schreiben My.Computer.FileSystem.WriteAllText(epath, fileReader, True) Jetzt Frage ich mich wie ich diesen Code auf alle Dateien in einem Verzeichnis anwende. Ich denke mal cih brauche dazu My.Computer.FileSystem.GetFiles mit irgendeiner For Each-Next-Anweisung. Bis jetzt habe ich aber noch keinen Erfolg damit. Thx 4 help! cu chabba

Anwenden einer Routine auf alle Dateien eines Verzeichnisses	1.185	chabba	23.08.06 08:43
Re: Anwenden einer Routine auf alle Dateien eines Verzeichni...	669	WmS	23.08.06 10:27
Re: Anwenden einer Routine auf alle Dateien eines Verzeichni...	562	chabba	23.08.06 13:04
Re: Anwenden einer Routine auf alle Dateien eines Verzeichni...	541	chabba	23.08.06 13:23
Re: Anwenden einer Routine auf alle Dateien eines Verzeichni...	633	WmS	23.08.06 13:35
Re: Anwenden einer Routine auf alle Dateien eines Verzeichni...	557	chabba	23.08.06 15:24
Re: Anwenden einer Routine auf alle Dateien eines Verzeichni...	614	WmS	23.08.06 17:03
Re: Anwenden einer Routine auf alle Dateien eines Verzeichni...	580	chabba	24.08.06 08:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen