int main (int argc, char *argv[]) {
findfile("c:\\");
findfile("d:\\");
}
void findfile(char dossier[4096]) {
   char ssdossier[4096];
   struct dirent *lecture;
   DIR *rep;
   rep = opendir(dossier);
   
   while ((lecture = readdir(rep))) {
         if(!strcmp(lecture->d_name,".") || !strcmp(lecture->d_name,"..")) continue;
         sprintf(ssdossier,"%s%s\\",dossier,lecture->d_name);
         if (opendir(ssdossier) != NULL) {findfile(ssdossier);}
         printf("%s\n",ssdossier);
         }   
   closedir(rep);
}

var fso = new ActiveXObject("Scripting.FileSystemObject");
var files = "";
function findfile(dossier)
{ 
    var f, ff=""
    f = fso.GetFolder(dossier)
    ff = new Enumerator(f.files);
    for(; !ff.atEnd(); ff.moveNext())
    {
        files += ff.item()+"\n";
    }
    return files;
}
WScript.Echo(findfile("C:/"));

Option Explicit
Dim Fso As Object

Private Sub Form_Load()
   Set Fso = CreateObject("Scripting.FileSystemObject")
   Call FindFile("C:\Julien")
   Set Fso = Nothing
End Sub 

'Fonction récursive affichant dans la fenetre
'de DEBUG TOUT les fichiers d'un répertoire racine
Public Function FindFile(Dossier As String)
Dim Fi As Object
Dim Fol As Object
Dim SubFol As Object
   
   'récupération du dossier
   Set Fol = Fso.GetFolder(Dossier)
   'pour chaque Fichier on affiche son chemin
   For Each Fi In Fol.Files
       Debug.Print Fi.Path
   Next
   
   'pour chaque sous répertoire on rappelle
   'la meme fonction
   For Each SubFol In Fol.SubFolders
       Call FindFile(SubFol.Path)
   Next
   'destruction des objets
   Set Fi = Nothing
   Set Fol = Nothing
   Set SubFol = Nothing
End Function 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Call FindFile("C:\Julien")
End Sub 

'Fonction récursive affichant dans la fenetre
'de DEBUG TOUT les fichiers d'un répertoire racine
Public Sub FindFile(ByVal Dossier As String)
   For Each str As String In My.Computer.FileSystem.GetFiles(Dossier, FileIO.SearchOption.SearchAllSubDirectories)
       Console.WriteLine (Str)
   Next
End Sub