Ai pessoal

tah ai embaixo a minha rotina para saber se o arquivo existe,

Pode tbm ser usado o IsMissing mais nao gosto, então escrevi minha funçãozinha

'---------------------------------------------------------------------------------------
' Procedure : FileExists
' DateTime  : 16/1/2007 10:42
' Author    : SOUZAEST
' Purpose   : VERIFICAR EXISTENCIA DE ARQUIVO
'---------------------------------------------------------------------------------------
'
Public Function FileExists(nFilename As String) As Boolean

   'TRATAMENTO DE ERROS
   On Error GoTo ErrHand

Dim File 'VARIAVEL PARA O CANAL DO ARQUIVO

'SETA O CANAL PARA ARQUIVO LIVRE
File = FreeFile

'CASO FILENAME NAO TENHA NENHUM VALOR RETORNA FALSO
If nFilename = "" Then
   FileExists = False
End If

'TENTA ABRIR O ARQUIVO, SE NAO EXISTIR GERA ERRO E VAI P/ TRATAMENTO DE ERROS
Open nFilename For Input As #File
Close #File
'===============================================

   'RETORNA TRUE SE TUDO DER CERTO E O ARQUIVO EXISTIR
   FileExists = True
   '==================================================

'TRATAMENTO DE ERROS
ErrHand:
'CASO O ERRO SEJA 70 ("File Not Found") RETORNA FALSO
If Err.Number = 70 Then
   FileExists = False
End If

End Function

=D

Função simplificada:

Function FileExists(nFilename As String) As Boolean
If Dir(nFilename) <> "" Then
	FileExists = True
Else
	FileExists = False
End If
End Function

kra essa function sua funciona bem... mais tenta usar ela num sistema de servidores com dominio e talz...

vai da pau!! ^^

ja apanhei com isso, por isso escrevi a essa!! ^^

abraços!