cria diretorio
2
/* Esta função valida se existe o diretório informado, caso não exista o mesmo é criado. Os parâmetros são: cPath - Caminho a ser verificado/criado do diretório lDrive - Flag para controlar a digitação da unidade de drive. .T. - terá que informar a unidade de drive .F. - Não controla a unidade de drive lMSg - Questiona sobre criar diretório */ User Function FM_Direct( cPath, lDrive, lMSg ) Local aDir Local 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 n o especificada") //Unidade de drive n o 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 lMSg If MsgYesNo("Diretorio - "+cPath+" - nao encontrado, des eja cria-lo" ) //Diretorio - nao encontrado, deseja cria-lo If MakeDir(cPath) <> 0 Help(" ",1,"NOMAKEDIR") lRet := .F. EndIf EndIf Else If MakeDir(cPath) <> 0 Help(" ",1,"NOMAKEDIR") lRet := .F. EndIf EndIF EndIf EndIf Return lRet
-
Upload
fabio-apolinario -
Category
Documents
-
view
5 -
download
0
description
cria diretorio
Transcript of cria diretorio
-
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
