Delete dir only if empty

Author: camillo (talk, contrib)

Warning: RMDir without the /r switch will only delete empty directories, no extra code is required.

Description

Here is a simple but useful function to delete a directory ONLY if it is empty.

You can now delete empty directories by simply using RMDir without the /r switch.

How To Use

Put directory in $0 and call the function.

Example

StrCpy $0 "$SMPROGRAMS\PwStore"
Call un.DeleteDirIfEmpty

The Function

Function un.DeleteDirIfEmpty
  FindFirst $R0 $R1 "$0\*.*"
  strcmp $R1 "." 0 NoDelete
   FindNext $R0 $R1
   strcmp $R1 ".." 0 NoDelete
    ClearErrors
    FindNext $R0 $R1
    IfErrors 0 NoDelete
     FindClose $R0
     Sleep 1000
     RMDir "$0"
  NoDelete:
   FindClose $R0
FunctionEnd

Comments to 'camillo@rockit.it'