Using FindFirstFile and FindNextFile

[timer24]

Thank you Gintaras

It works perfectly Now!!!


Function get_folder_size

Code:

Copy      Help

function% str'folder
long dsize=0
str testdotfolder.right(folder,1)
if(folder.len>0&&StrCompare(testdotfolder,".")!=0)
,str ffilter.format("%s",folder)
,ffilter+"\*"
,WIN32_FIND_DATAW struFind
,long threadFind=FindFirstFileW(@ffilter,&struFind)
,rep
,,if(struFind.dwFileAttributes&FILE_ATTRIBUTE_DIRECTORY)
,,,str filename.ansi(&struFind.cFileName)
,,,str childFolder=""
,,,childFolder+folder
,,,childFolder+"\"
,,,childFolder+filename
,,,long f_bytes=get_folder_size(childFolder)
,,,dsize+f_bytes
,,else
,,,dsize+struFind.nFileSizeLow
,,if(FindNextFileW(threadFind,&struFind)==0)
,,,break
,FindClose threadFind
ret dsize

Regards