Nesse vídeo demonstraremos a utilização da função ExistDir, que valida se uma pasta existe, seja na estação que esta rodando o SmartClient ou dentro da Protheus Data.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe159
Verifica se uma pasta existe
@type Function
@author Atilio
@since 18/12/2022
@see https://tdn.totvs.com/display/tec/ExistDir
@obs 
    Função ExistCpo
    Parâmetros
        + cPath        , Caractere   , Nome da pasta a ser validada
        + uParam2      , Indefinido  , Compatibilidade
        + lChangeCase  , Lógico      , Se .T. tudo será convertido para minúsculo senão se .F. mantém a informação original
    Retorno
        + lRet         , Lógico      , .T. Se a pasta existir ou .F. se ela não existir

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe159()
    Local aArea     := FWGetArea()
    Local cPastaSO  := "C:\spool\"
    Local cPastaInt := "\x_teste\"

    //Teste 1 verificando a pasta no S.O.
    If ! ExistDir(cPastaSO)
        MakeDir(cPastaSO)
        FWAlertSuccess("Pasta '" + cPastaSO + "' criada", "Teste 1 Pasta S.O. - ExistDir")
    Else
        FWAlertInfo("Pasta '" + cPastaSO + "' já existe", "Teste 1 Pasta S.O. - ExistDir")
    EndIf

    //Teste 2 verificando a pasta na Protheus Data
    If ! ExistDir(cPastaInt)
        MakeDir(cPastaInt)
        FWAlertSuccess("Pasta '" + cPastaInt + "' criada", "Teste 2 Pasta Interna - ExistDir")
    Else
        FWAlertInfo("Pasta '" + cPastaInt + "' já existe na Protheus Data", "Teste 2 Pasta Interna - ExistDir")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheus