Tratamento de erro

[Flecha]

Pessoal,

Quando instalo o programa esqueço que tem que criar um diretório na raiz com c:\Word

Nesse diretorio serão arquivados os documento criados pelo vb concatenando os dados do registro ao .doc.

Acontece que esqueço de criar o diretorio e a pasta, ai o programa dá o erro 5152 executa a rotina mas fecha o programa.

Quero colocar um tratamento de erro para esse 5152, que se for ele dispara a mensagem para criar a pasta no diretorio c:\ e continua a executar o programa sem interrompê-lo

Como fica essa rotina?

Flecha

[kuroi]

você pode usar o filesystemobject pra ver se o diretorio existe e usar tb o fso pra criar a pasta.

ou você pode checar pelo numero de erro:

On Erro Go To Erro
 - seu codigo -
Erro:
    If Err.Number = "5152" Then
        - cria o diretorio -
     Else
        MsgBox Err.Description
     End If[/code]




você tb pode usar essa api pra criar o diretorio:
[code]Private Declare Function CreateDirectory Lib "shell32.dll" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long

CreateDirectory Me.hwnd, "C:\Word", Nothing

[Flecha]

Kuroi,

Eu coloquei o on error e funcionou. Coloquei a mensagem para cria a pasta.

Depois vou testat colocar o código para criar a pasta informando que será criada.

Obrigado