TextBox y comprobación de archivo.

[LEBS]

Hola, como andan gente.
La consulta que tengo es la siguiente:

Tengo un 'textbox' en donde va un número de cuatro cifras. Ese número de cuatro cifras pertenece a un nombre de un archivo de Word. EJ: 0001.DOC la consulta es. ¿Como hago para saber si cuando voy a escribir un número VB compruebe de que ese archivo (número) no fué generado (ingresado) antes? ¿Me expliqué bien?.

Muchas gracias por soluciones que puedan llegar a aportarme.

Abrazo.

[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