Wie liest man alle Dateien aus einem Verzeichnis und verschiebt Dateien in ein anderes laufendes Verzeichnis opengee 4gl?

Question

Ich muss den Inhalt aller Dateien in einem Ordner nacheinander lesen und die Datei nach dem Lesen in einen anderen Ordner verschieben. Ich habe hardcoded, um eine einzelne Datei zu lesen. copy-lob von der Datei "E: \ New \ a.txt" nach c-edistring.

Angenommen, es gibt drei Dateien a.txt, b.txt, c.txt.

Sobald a.txt gelesen wird, sollte die Datei in einen anderen Ordner E: \ Old verschoben werden. gefolgt von b und c.

Answer 1

Mit der Anweisung INPUT FROM OS-DIR können Sie eine Liste aller Dateien in einem Ordner abrufen.

DEFINE VARIABLE cFileShort AS CHARACTER NO-UNDO . 
DEFINE VARIABLE cFileLong AS CHARACTER NO-UNDO. 
DEFINE VARIABLE cType  AS CHARACTER NO-UNDO. 

INPUT FROM OS-DIR ("e:\New") . 

REPEAT: 
    IMPORT cFileShort cFileLong cType . 

    /* File or Directory ? */ 
    IF cType MATCHES "*F*" THEN 
     MESSAGE "ShortFileName" cFileShort SKIP 
       "LongFileName" cFileLong . 

END.  

Um die Dateien zu verschieben, müssen Sie nicht COPY-LOB verwenden, das den Dateiinhalt in den Speicher kopiert.

innerhalb der Schleife oben wird die Bewegung ohne das Lesen der vollständigen Dateien in den Speicher tun.

Wenn Sie auf .NET (Windows, Open 10.2b und höher) zählen können Sie auch für Dateioperationen .NET-Klassen verwenden können, ähnlich wie https://msdn.microsoft.com/en-us/library/cc148994(v=vs.100).aspx

Answer 2

Vor Jahren schrieb ich ein Programm-Tools, was Sie tun möchten, - Sie eine Kopie hier bekommen: https://community.progress.com/community_groups/openedge_general/w/openedgegeneral/1615.directory-tools