TextBox y comprobación de archivo.

[erbuson]

Acabo de contestarte en el otro foro, esta es una de tantas opciones que puede haber:

Código vb:

Public Function Existe(Fichero As String, Optional Directorio As Boolean) As Boolean
  Dim Test As Long
  On Error GoTo NoExiste
  Test = GetAttr(Fichero)
  If Directorio Then
    If (Test And vbDirectory) = vbDirectory Then Existe = True
  Else
    Existe = True
  End If
  Exit Function
NoExiste:
  On Error GoTo 0
End Function
 

Saludos