Olá gente.. Eu gostaria de saber como é que eu faço para verificar se um arquivo existe ou não em um diretório ... Tipo, eu tenho q verificar se o arquivo q o usuário esta querendo salvar tem o mesmo nome de outro arquivo dentro daquele diretório ... Alguém sabe como eu faço isso ???? Agradecido.

Oks,
Rafael Portal

Tente a Função

 

ex.

Public Function ExisteArq(Nome As String) As Boolean
On Error Resume Next
FileLen (Nome)
If Err Then
    ExisteArq = False
Else
    ExisteArq = True
End If
On Error GoTo 0
End Function

 

'No procedimento

If ExisteArq (C:autoexec.bat") then msgbox "O Aquivo existe!"