Tempo de leitura: 1 minuto
Hoje abordaremos uma função de manipulação de arquivos em ADVPL, a ExistDir, utilizando essa função podemos identificar se um diretório existe e é valido de acordo com os parâmetros que informamos.
Sintaxe:
ExistDir(<cPath>, [uParam2], [lMin])
Parâmetros
Retorno:
Exemplo:
#include 'protheus.ch'
/*{Protheus.doc} User Function fExistDir
(Essa função tem por finalidade mostrar a função de manipulação de Arquivos, Discos e IO em ADVPL)
@type Function
@author Adilio Costa
@since 08/07/2023
@version Protheus 12.1.2210
@site https://www.protheusadvpl.com.br
@canal https://www.youtube.com/protheusadvpl
@instagram https://www.instagram.com/protheusadvpl
@Portal ProtheusAdvpl:https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
*/
//Exemplo da função ExistDir
User Function fExistDir()
Local cPath := "D:\Protheus_12_1_2210"
Local uParam2 := nil
Local lMin := .T.
Local lRet := .F.
lRet := ExistDir(cPath,uParam2,lMin)
If(lRet)
MsgAlert("O diretório do caminho "+cPath+" existe!")
Else
MsgAlert("O diretório do caminho "+cPath+" não existe!")
EndIf
Return
Bem pessoal e era isso que tínhamos pra falar da função ExistDir, espero que vocês tenham entendido o funcionamento da função, até mais e um grande abraço.
Link de referência:
