voici le code source purebasic
Chemin$ = PathRequester("Choisissez un répertoire", "c:\")
resultat=ExamineDirectory(0, Chemin$, "*.*")
CreateFile(0, "taille.bat")
WriteStringN(0, "@Echo Off")
WriteStringN(0, "setlocal ENABLEDELAYEDEXPANSION")
WriteStringN(0, "Set P1=0")
WriteStringN(0, "Set Dossier=%1")
WriteStringN(0, "For /R "+Chr(34)+chemin$+Chr(34)+" %%I In (*.*) Do Set /A P1=!P1!+%%~ZI/1048")
WriteStringN(0, "Echo Le dossier "+chemin$+" contient %P1%Koctets > rapport.txt")
CloseFile(0)
RunProgram("taille.bat","","",#PB_Program_Wait)e.bat","","",#PB_Program_Wait)