Criando Diretórios

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


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).