Code: Select all
DestyCarpeta$=PathRequest("Drawer?")
OpenDirectory(1, DestyCarpeta$)
;n=CountDirectoryEntries(id[, what]
NumFiles=CountDirectoryEntries(1, #COUNTFILES)
NumCarpetas=CountDirectoryEntries(1, #COUNTDIRECTORES)
NumTotal=CountDirectoryEntries(1, #COUNTBOTH)
SetFont(#SANS, 20)
SetFontColor(#WHITE)
SetFontStyle(#ANTIALIAS)
TextOut(#CENTER, #CENTER, "Files: "..NumFiles)
TextOut(#CENTER, #CENTER+25, "Drawers: "..NumCarpetas)
TextOut(#CENTER, #CENTER+45, "Total files and drawes: "..NumTotal)
Other problem under Windows report extra number of files and drawers, from hidden system files.