5/19/2018 cria diretorio

1/2

/*Esta funo valida se existe o diretrio informado, caso no exista o mesmo criadoOs parmetros so:cPath - Caminho a ser verificado/criado do diretriolDrive - Flag para controlar a digitao da unidade de drive..T. - ter que informar a unidade de drive

.F. - No controla a unidade de drivelMSg - Questiona sobre criar diretrio*/User Function FM_Direct( cPath, lDrive, lMSg )

Local aDirLocal lRet:=.T.Default lMSg := .T.

If Empty(cPath)Return lRet

EndIf

lDrive := If(lDrive == Nil, .T., lDrive)

cPath := Alltrim(cPath)If Subst(cPath,2,2) ":\" .AND. lDrive

MsgInfo("Unidade de drive no especificada") //Unidade de drive no especifi

cada lRet:=.F.Else

cPath := If(Right(cPath,1) == "\", Left(cPath,Len(cPath)-1), cPath)aDir := Directory(cPath,"D")If Len(aDir) = 0

If lMSgIf MsgYesNo("Diretorio - "+cPath+" - nao encontrado, des

eja cria-lo" ) //Diretorio - nao encontrado, deseja cria-loIf MakeDir(cPath) 0

Help(" ",1,"NOMAKEDIR")lRet := .F.

EndIf

EndIfElse

If MakeDir(cPath) 0Help(" ",1,"NOMAKEDIR")lRet := .F.

EndIfEndIF

EndIfEndIfReturn lRet

5/19/2018 cria diretorio

2/2