Menghapus Folder dengan Visual Foxpro

Menghapus Folder dengan Visual Foxpro

  05.51    Prometheus

---

&& FUNCTION HapusFolder
&& Untuk hapus folder beserta isi-isinya (sikat habis)
&& Return -1 jika folder tak ada
&& Return 0 jika gagal dihapus
&& Return 1 jika berhasil dihapus
&& Function akan error jika folder yang dihapus adalah folder system

FUNCTION HapusFolder
PARAMETERS _fol2del
IF VARTYPE(_fol2del)<>"C"
        _fol2del=""
ENDIF
IF !DIRECTORY(_fol2del)
        RETURN -1
ENDIF
fso=createobject('Scripting.FileSystemObject')
fldr=fso.DeleteFolder(_fol2del)
RETURN IIF(DIRECTORY(_fol2del),0,1)