IsEmptyDir ( DirName )
' "BKUP"フォルダの中身が空かどうかを調べる。
outDir = _SCF_+"BKUP¥"
If IsExistDir ( outDir ) = True Then
If IsEmptyDir ( outDir ) = True Then
MessageBox ( "Empty !" )
Else
MessageBox ( "Not Empty !" )
End
Else
MessageBox ( "Not Exist !" )
End