PhunkyBob

Vous pouvez boucler sur tous les sous-répertoire d'un répertoire pour connaitre leur contenu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Liste de tous les fichiers QV sur le disque.
sub DoDir (Root)
    for each Ext in 'qvw', 'qva', 'qvo', 'qvs'
        for each File in filelist (Root & '\*.' & Ext)
            Load '$(File)' as Name, FileSize( '$(File)' ) as Size, FileTime( '$(File)' ) as FileTime
            autogenerate 1;
        next File
    next Ext
 
    for each Dir in dirlist (Root&' \*' )
        call DoDir (Dir)
    next Dir
end sub
 
 
call DoDir ('C:')