Bonsoir à tous,
J'ai créé une fonction dans un module intitulé iofonctions.prg.
FUNCTION FolderListe()
PARAMETERS DrivePath
DIMENSION ThePaths(1024)
Inc=1
fsObject = CreateObject("Scripting.FileSystemObject")
RootFolder = fsObject.GetFolder(drivepath)
ChildFolders = RootFolder.SubFolders
For Each FolderFound In ChildFolders
thepaths(inc)=FolderFound.Name
inc=inc+1
NEXT
RETURN Thepaths
ENDFUNC
Cette fonction est appelée depuis un autre module comme
ceci :
.....
SET PROCEDURE TO iofonctions
DirRoutes=folderliste(Folder_Routes + "\")
La variable DirRoutes me retourne uniquement une chaine,
mais pas le tableau Thepaths.
Ce que j'attends en fait dans DirRoutes, c'est une copie de Thepaths, pour traiter chaque élément du tableau.
Merci pour votre aide