DirectoryEntryType()
Syntaxe
Resultat = DirectoryEntryType(#Repertoire)Description
Renvoie le type du fichier courant dans le #Repertoire examiné par les fonctions ExamineDirectory() et NextDirectoryEntry().
Arguments
#Repertoire Le répertoire examiné avec ExamineDirectory().
Valeur de retour
#PB_DirectoryEntry_File : C'est un fichier. #PB_DirectoryEntry_Directory: C'est un répertoire.
Exemple
Repertoire$ = GetHomeDirectory() ; Liste tous les fichiers et les dossiers du répertoire racine de l'utilisateur qui est actuellement logué (Home)
If ExamineDirectory(0, Repertoire$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
Type$ = " [Fichier] "
Taille$ = " (Taille : " + DirectoryEntrySize(0) + ")"
Else
Type$ = " [Dossier] "
Taille$ = "" ; Un Dossier n'a pas de taille
EndIf
Debug Type$ + DirectoryEntryName(0) + Taille$
Wend
FinishDirectory(0)
EndIf
Voir aussi
ExamineDirectory(), NextDirectoryEntry(), DirectoryEntryName(), DirectoryEntrySize(), DirectoryEntryAttributes(), DirectoryEntryDate()
OS Supportés
Tous