MakeDir
Cria diretorio no AppServer. Retorna 0 se ok, codigo de erro caso contrario.
Assinatura: MakeDir(cPath) -> nRet
Retorna: Numeric
Cria diretorio no servidor. Nao cria pais — se voce pede /a/b/c mas /a/b nao existe, falha.
nRet := MakeDir("\export\2026\05")
If nRet != 0
ConOut("Erro criando pasta: " + cValToChar(nRet))
EndIf
// Pra criar arvore inteira (helper recursivo)
Static Function _MakeDirRec(cPath)
Local aPartes := Separa(cPath, "\")
Local cAcum := ""
Local i
For i := 1 To Len(aPartes)
cAcum += "\" + aPartes[i]
If !ExistDir(cAcum)
MakeDir(cAcum)
EndIf
Next
Return
Pegadinhas
- Nao cria pais — implementar recursividade voce mesmo (helper acima).
- ExistDir verifica se pasta ja existe — use antes de MakeDir.
- Path absoluto e relativo ao rootpath do AppServer.
- Permissao — usuario do AppServer precisa ter escrita.
Parâmetros
| Nome | Tipo | Obrigatório | Descrição |
|---|---|---|---|
cPath | Character | sim | Caminho da pasta a criar. |