Nesse vídeo demonstraremos a utilização da função MakeDir, que serve para criar pastas no sistema operacional onde 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 zExe337
Cria uma pasta no Sistema Operacional ou a partir da Protheus Data
@type Function
@author Atilio
@since 12/03/2023
@see https://tdn.totvs.com/display/tec/MakeDir
@obs 

    Função MakeDir
    Parâmetros
        + cPath       , Caractere  , Nome da pasta que será criada
        + uParam2     , Indefinido , Compatibilidade
        + lChangeCase , Lógico     , Se .T. será convertido tudo para minúsculo senão se .F. será mantido conforme informado o cPath
    Retorno
        + nRet        , Numérico   , Retorna 0 em caso de sucesso

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

User Function zExe337()
    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. - MakeDir")
    Else
        FWAlertInfo("Pasta '" + cPastaSO + "' já existe", "Teste 1 Pasta S.O. - MakeDir")
    EndIf

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

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++