Bom dia. Preciso via programação abrir um arquivo que está em determinada pasta. Antes de mandar abrir, precisa saber se o usuário que está logado tem permissão de leitura na pasta ou no próprio arquivo. Se tiver permissão se tiver permissão abre o arquivo, se não tiver mostra uma mensagem. Alguém tem alguma dica? Obrigado. Antonio
Bom dia, Use esse código: DEF VAR i-retorno AS INT NO-UNDO. ASSIGN FILE-INFO:FILE-NAME = 'C:\TEMP\1'. /* nome da pasta que será gravado */ RUN CreateDirectoryA(FILE-INFO:FILE-NAME + "\_wsx",0,OUTPUT i-retorno). IF i-retorno = 0 THEN DO: MESSAGE 'Sem Permissão para Gravar na Pasta ou Pasta não Existe' VIEW-AS ALERT-BOX INFO BUTTONS OK. END. OS-DELETE VALUE(FILE-INFO:FILE-NAME + "\_wsx") NO-ERROR. /* procedure para criar pasta _wsx para teste de gravaçã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.
