Code : Tout sélectionner
Resultat.q = DirectoryEntrySize(#Repertoire)Code : Tout sélectionner
OpenConsole()
Directory$ = "f:\reptest\"
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
Type$ = " [Fichier] "
Else
Type$ = " [Sous-répertoire] "
EndIf
PrintN( DirectoryEntryName(0) + Type$ + "- Taille en octet : " + Str(DirectoryEntrySize(0)))
Wend
Input()
FinishDirectory(0)
EndIf
sospel a écrit :@ Cls
Ca, je sais faire ! Mais il ne me semble pas excessivement exigeant de souhaiter avoir un ordre en PB qui virerait sans discuter un répertoire comme sous DOS : rmdir "f:\reptest\" /S /Q . Ca marche très bien...
Syntaxe
Resultat = DeleteDirectory(Repertoire$, Masque$ [, Mode])
Description
Efface le répertoire spécifié. Attention, cette commande est dangereuse et doit être utilisée avec précautions.Si le résultat est 0 le répertoire n'a pu être totalement effacé.
'Masque$' doit être une séquence valide pour le système d'exploitation. Par exemple : "*.*" effacera tous les fichiers du répertoire. "*.exe" n'effacera que les fichiers se terminant par .exe. Par défaut une valeur nulle pour Masque$ efface tous les fichiers.
Le paramètre 'Mode' est facultatif et peut être une combinaison des valeurs suivantes:
#PB_FileSystem_Recursive: Efface le répertoire et tous les sous-répertoires
#PB_FileSystem_Force : Efface également les fichiers protégés (Lecture seule).
OS Supportés TOUS
Sinon, pourquoi ne pas laisser au programmeur le plaisir de programmer lui-même ses fonctions trigonométriques par l'algorithme CORDIC :
http://www.trigofacile.com/maths/trigo/ ... cordic.htm
Je vais donc utiliser "RUNPROGRAM " avec un ordre DOS ...
SosPel
alors pourquoi n'as tu pas posé cette question ?sospel a écrit :@ Dobro
Ca n'a rien de contradictoire : je souhaite connaître la place qui sera récupérée sur le DD
la reponse t'a été donné ! en utilisant une procedure récursive !de me dire comment récupérer la taille d'un répertoire
Cordialement
Sospel
Code : Tout sélectionner
#Directory="C:\Windows\"
MessageRequester(#Directory,Str(GetDirectorySize(#Directory))+" KB")
Code : Tout sélectionner
;/ Return Size of a Directory ( in Kb )
Procedure SearchDirectorySize(Path.s)
; Add \ to Path if missing
If Right(Path,1)<>"\" : Path+"\":EndIf
; Apply Structure
lpFindFileData.WIN32_FIND_DATA
; Add Filter *.*
Recherche.s=Path+"*.*"
; Initiate the Search
handle.l = FindFirstFile_(Recherche, @lpFindFileData)
; If search succeeds
If handle <> #INVALID_HANDLE_VALUE
Repeat
; Trouve = File or Directory Found
Trouve.s=PeekS(@lpFindFileData\cFileName)
; This is a not a directory
If lpFindFileData\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY =#False
Fichiers.s=Path+Trouve
Size+( lpFindFileData\nFileSizeLow / 1024) ; Add Low DWord
If lpFindFileData\nFileSizeHigh
Size+lpFindFileData\nFileSizeHigh * $3FFFFF ; Add High DWord *$3FFFFF
EndIf
EndIf
; Exit when there is no more files
Until FindNextFile_(handle, @lpFindFileData)= #False
; Close the Api search Function
FindClose_(handle)
EndIf
ProcedureReturn Size
EndProcedure
Procedure SearchSubDirectorySize(Path.s)
; Add \ to Path if missing
If Right(Path,1)<>"\" : Path+"\":EndIf
; Apply Structure
lpFindFileData.WIN32_FIND_DATA
; Add Filter *.*
Recherche.s=Path+"*.*"
; Initiate the Search
handle.l = FindFirstFile_(Recherche, @lpFindFileData)
; If search succeeds
If handle <> #INVALID_HANDLE_VALUE
Repeat
; trouve = File Or Directory Found
Trouve.s=PeekS(@lpFindFileData\cFileName)
; This is a directory
If lpFindFileData\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY
; And not the . or .. directory
If Trouve <>"." And Trouve <>".."
; Call the function itself ( Recursive ) to search in another Directory
Size+SearchSubDirectorySize(Path+Trouve)
; Directory found : Search file within this Directory
Size+ SearchDirectorySize(Path+Trouve)
EndIf
EndIf
; Exit when there is no more files
Until FindNextFile_(handle, @lpFindFileData)= #False
; Close the Api search Function
FindClose_(handle)
EndIf
ProcedureReturn Size
EndProcedure
ProcedureDLL GetDirectorySize(Path.s)
Size=SearchDirectorySize(Path) ; Car le répertoire lui même n'est pas scanné sinon
Size+SearchSubDirectorySize(Path)
ProcedureReturn Size
EndProcedure
;/ Test
#Directory="c:\"
MessageRequester(#Directory,Str(GetDirectorySize(#Directory))+" Kb")
Code : Tout sélectionner
Procedure.q DirectorySize(Recursive, Directory.s, FirstTime = #True)
Protected MyDir, FileName.s
Static TotalSize.q
If FirstTime
TotalSize = 0
EndIf
MyDir = ExamineDirectory(#PB_Any, Directory, "*.*")
If MyDir
Repeat
If NextDirectoryEntry(MyDir) = #False
Break
EndIf
;
If Right(Directory, 1) <> "\"
Directory = Directory + "\"
EndIf
FileName = DirectoryEntryName(MyDir)
If DirectoryEntryType(MyDir) = #PB_DirectoryEntry_Directory And Recursive
If FileName <> "." And FileName <> ".."
DirectorySize(Recursive, Directory + FileName, #False)
EndIf
ElseIf DirectoryEntryType(MyDir) = #PB_DirectoryEntry_File
TotalSize + DirectoryEntrySize(MyDir)
EndIf
;
ForEver
FinishDirectory(MyDir)
EndIf
ProcedureReturn TotalSize
EndProcedure
Debug DirectorySize(#False, #PB_Compiler_Home)
Debug DirectorySize(#True, #PB_Compiler_Home)