ExamineDirectory()

Syntaxe

Resultat = ExamineDirectory(#Repertoire, NomRepertoire$, Filtre$)

Examine un répertoire et crée une liste qui peut être ensuite parcourue avec les fonctions NextDirectoryEntry() et DirectoryEntryName().

Si #PB_Any est utilisé pour le paramètre '#Repertoire', le numéro du nouveau répertoire sera renvoyé dans 'Resultat'. Si Resultat = 0, le répertoire n'a pu être examiné.

Filtre$ permet de sélectionner quels types de fichiers doivent être retenus. Par exemple, un 'Filtre$' "*.*" ou "" retiendra tous les fichiers (et sous-dossiers) du répertoire , "*.exe" ne retient que les fichiers dont l'extension est .exe (ou les sous-dossiers se terminant par .exe).

Une fois que l'examen du répertoire est terminé, la commande FinishDirectory() doit être appelée pour libérer toutes les ressources associées à ce listing.

Exemple:

  Directory$ = "C:\"   ; Énumère le contenu du répertoire C (Les sous-répertoires ne sont pas examinés) 
  If ExamineDirectory(0, Directory$, "*.*")  
    While NextDirectoryEntry(0)
      If DirectoryEntryType(0) = #PB_DirectoryEntry_File
        Type$ = " [Fichier] "
      Else
        Type$ = " [Sous-répertoire] "
      EndIf
      
      Debug DirectoryEntryName(0) + Type$ + "- Taille en octet : " + Str(DirectoryEntrySize(0))
    Wend
    FinishDirectory(0)
  EndIf

OS Supportés

Tous