Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Probleme Daten aus einem Verzeichnis auszulesen
Autor: quat
Datum: 08.08.06 12:03
Hallo, Bei dem Versuch eine Anwendung zu programmieren, die alle Dateien, dren Endung ".00" enthaelt aus einem Verzeichnis in ein anderes zu kopieren trat folgendes Problem auf. Das Programm kopierte nur eine der Dateien, deren Endung ".00" enthaelt. Der Programmcode ist folgender: Dim SourceA As String Dim SourceB As String Dim Source As String Dim Destination As String Source = "\\IMAGE-STORAGE\Server\Preinstall\" & labPreinstall.Text & "\" SourceA = Dir("\\IMAGE-STORAGE\Server\Preinstall\" & labPreinstall.Text & "\*.00*") Destination = "E:\Images\" & labPreinstall.Text MkDir("E:\Images\" & labPreinstall.Text) Do While SourceA <> "" FileCopy(Source & SourceA, "E:\images\" & labPreinstall.Text & "\" & SourceA) SourceA = Dir() Loop Beim durchlauf stellte ich fest, dass die Schleife nur ein einziges mal durchlaufen wird. Zuerst hat SourceA den Wert der einen Datei, die kopiert wird. Nachdem SouceA=Dir() ausgefuehrt wurde gar keinen mehr. Warum ist das so? Ich habe ein Testprogramm mit einem Fast identischen Code geschrieben, um festzustellen, ob das mit der Schleife ueberhaupt funktioniert. Indiesem Testprogramm funktionierte es ohne Probleme. Ich hoffe ihr koennt mir weiterhelfen. Ich wuerde mich auch ueber eine anderen Loesungsvorschlag fuer das Problem Dateien auslesen freuen. Vielen Dank schoneinmal im Voraus. Quat

Probleme Daten aus einem Verzeichnis auszulesen	863	quat	08.08.06 12:03
Re: Probleme Daten aus einem Verzeichnis auszulesen	442	Oliver_G.	08.08.06 13:24
Re: Probleme Daten aus einem Verzeichnis auszulesen	427	quat	08.08.06 15:10

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