Tenho uma pasta com Fotos.   Dentro dela tenho fotos que recebe o nome de ex:   1.jpg,   2.jpg,  200.jpg, 10001.jpg   preciso usando vb6, ADO um código que verifique se existe uma determinada foto existe na pasta e se existir vou exibí-la. Por favor alguém saberia o código. agradeço qualquer ajuda.    

' No Módulo:

 

Public Function FileExist(FileName As String) As Boolean
  Dim Tempattr As Integer
  On Error GoTo ErrorFileExist
  Tempattr = GetAttr(FileName)
  FileExist = True
  GoTo ExitFileExist
ErrorFileExist:
  FileExist = False
  Resume ExitFileExist
ExitFileExist:
  On Error GoTo 0
End Function

' No Form:

 

If FileExist("C:FOTOS10.JPG") = True Then
  MsgBox "A foto existe !", vbOKOnly, "Atenção"
Else
  MsgBox "A foto não existe !", vbOKOnly, "Atenção"
End If

Jayme

Assim tambem funciona:

 

' somente no Form

 

If Dir("C:FOTOS10.JPG", False) <> "" Then
  MsgBox "A foto existe !", vbOKOnly, "Atenção"
Else
  MsgBox "A foto não existe !", vbOKOnly, "Atenção"
End If

Jayme