How can i check, if a folder is emtpy?

Archive: How can i check, if a folder is emtpy?

amokk
3rd June 2008 13:31 UTC

How can i check, if a folder is emtpy?
Hi,
how can i detect subdirectories in a folder, or it is empty?

Thanks

Afrow UK
3rd June 2008 13:57 UTC

Function IsFolderEmpty
Exch $R0
Push $R1
  ClearErrors
  FindFirst $R1 $R0 $R0\*.*
  IfErrors +7
  StrCmp $R0 . +4
  StrCmp $R0 .. +3
    StrCpy $R0 0
    Goto +4
  FindNext $R1 $R0
  Goto -6
  StrCpy $R0 1
  FindClose $R1
Pop $R1
Exch $R0
FunctionEnd


Push $INSTDIR\somefolder
Call IsFolderEmpty
Pop $R0

$R0 == 1 if empty; 0 otherwise. Note this includes files as well as folders.

Stu

amokk
3rd June 2008 14:23 UTC

Thanks!!!!!!!