Criar Diretorio com API

Discussão em 'Interfaces' iniciado por fdantas, Fevereiro 8, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Essa rotina abaixo cria diretórios usando dll do windows. Ela retorna um inteiro indicando o erro ou o sucesso da execução.


    Código:
    PROCEDURE CreateDirectoryA EXTERNAL "Kernel32":
DEF INPUT PARAM pcPathName AS CHAR.
DEF INPUT PARAM plSecurity AS LONG.
DEF RETURN PARAM plRes AS LONG.
END PROCEDURE.

DEF VAR ll AS INT NO-UNDO.

RUN CreateDirectoryA("s:\xml54\test1",0,OUTPUT ll).
    fdantas, Fevereiro 8, 2009
    #1

Compartilhe esta Página