Comment lister les fichiers texte dans un répertoire dans Progress 4GL?

Question

J'ai un dossier dans le lecteur c, qui contient 1000 fichier txt, je veux pour obtenir la liste de tous ces fichiers txt. Comment puis-je obtenir cette liste?

Answer 1

Utilisez la fonction OS-DIR().

Par exemple:

DEFINE STREAM dirlist. 
DEFINE VARIABLE filename AS CHARACTER FORMAT "x(30)" NO-UNDO. 

INPUT STREAM dirlist FROM OS-DIR("."). 

REPEAT: 
    IMPORT STREAM dirlist filename. 
    DISPLAY filename. 
END. 

INPUT CLOSE. 

Answer 2

Par exemple: ipcPath = « C: \ temp \

DEFINE INPUT PARAMETER ipcPath AS CHARACTER NO-UNDO. 
DEFINE VARIABLE chFiles  AS CHARACTER NO-UNDO. 

INPUT FROM OS-DIR(ipcPath). 
REPEAT: 
    IMPORT UNFORMATTED chImport NO-ERROR. 
    DISPLAY chFiles FORMAT "X(75)". 
END. 
INPUT CLOSE. 

chFiles une liste spacedelimeted et contient le nom de fichier, le chemin, et un 'F' ou 'D' tag

Answer 3

J'ai un programme-outils qui permet à un développeur de faire toutes sortes de choses amusantes avec des systèmes de fichiers.Vous pouvez obtenir le code ici: http://communities.progress.com/pcom/docs/DOC-16578