Makeing a new directory if one does not exist

[bluebird]

Dear mentors

How can I implement this pseudo code in HMG

cDir:="C:\HMGSave"

If .NOT. exist cDir
Create Folder // this is already in HMG
Else
msgstop ("I found one called HMGSave already")

Endif

Its the exitance check that I can't find

Thank you

[bpd2000]

visit
https://vivaclipper.wordpress.com/2014/01/09/makedir/

cDir := "temp"
IF MakeDir( cDir ) == 0
? "Directory", cDir, "successfully created"
ENDIF

[SALINETAS24]

Code: Select all

Local cDirFoto:=GetCurrentFolder()+"\Fotos\"   // -> Este será para guardar las fotos
//-> Si no existe el directorio de FOTOS lo creo
IF !HB_DirExists(cDirFoto)
		MakeDir(cDirFoto)
ELSE
                msgstop ("YA EXISTE")
ENDIF