Diretorio Lista Arquivos

Diretorio Lista Arquivos



C:\WinDev 19\Examples\Training\WD Text Files\Exe

Find is string
CurrentDir is string = fCurrentDir()+"\*.*"

// Clear FILELIST
ListDeleteAll(FILELIST)

// Start the search.
// The FRFile constant indicates that we search for files
Find=fDir(CurrentDir,frFile)
// Search = "" if no other file found in directory
WHILE Find <> ""
    // Add the file to FILELIST
    ListAdd(FILELIST,Find)
    // Search for next one
    Find=fDir("",frFile)
END

Lista Diretorio

Find is string
//CurrentDir is string = fCurrentDir()+"\*.*"
CurrentDir is string = "d:\*.*"
// Clear the DirList list
ListDeleteAll(DIRLIST)

// Start the search.
// The FRDirectory constant indicates that we search for directories
Find=fDir(CurrentDir,frDirectory)
// Search = "" if no other file found in directory
WHILE Find <> ""
    // Add the file found to the DirList list
    ListAdd(DIRLIST,Find)
    // Search for next one
    Find=fDir("",frFile)
END