ayuda con programa de un diccionario

[nov_hack]

***eL programa que kiero hacer es un diccionario ya tengo todo incluso la base
hecha con documentos  .txt, es decir cada palabra esta en un documento, pero
la cuestion es k si la palabra no se encuentra en la base de datos manda 
un error en el cual dice que no se puede tener acceso a la ruta especificada
y al oprimir el boton aceptar de ese mensaje el programa termina lo k kiero hacer
es cambiar ese mensaje por el de "La palabra no  existe" o si se produce el error
anterior que en vb 6.0 es el numero 75 no terminar el programa y despues mandar el
mensaje de "La palabra no  existe".
 
   Alguien de ustedes sabe como lograrlo o alguna idea que me puedan dar se
 los agradeceria.


codigo----------------------------------------------------------------------------

Dim c As String
Private Sub Command1_Click()
c = InputBox("introduce la palabra que deseas buscar", "Buscar")
End Sub

Private Sub Command2_Click()
Text1.Text = App.Path & "\" & c & ".txt"
If Error(75) = True Then
MsgBox ("La palabra no  existe")
Else
RichTextBox1.F ileName = Text1.Text
End If
End Sub

[>> s E t H <<]

usa on error.. buscalo en www.google.com y vas a ver

PD: esto no va aca

[ziBboh]

Vaya, vaya, creo que son muchos ficheros los que crea ya que un diccionario tiene como minomo 1000 palabras, pero en fin solo necesitas un manejador de errores, no se por que seth no te lo dijo y te mando a Google a buscar (a mi parecer no era necesario hacerlo) creo que fue inecesario su post, se que deben de buscar mas y que quizas sea algo muy simple para ti, pero hay que dejar atras los post "busca en google.com ahi lo encuentras" creo que todos sabemos que en google todo encontramos, pero no es necesario poner estos post sin poner una respuesta alternativa, si en alguna ocasion lo he hecho, creo que no lo volveria a hacer.

Bueno, solo tienes que poner una etiqueta y un manejador de errores (en cualquier manual de VB lo explican, creo) algo asi:

Código:

Function Buscar_Palabra ()
On error goto NoExiste 'Si esxiste un error lo manda a la etiqueta NoExiste
Text1.Text = App.Path & "\" & c & ".txt" 'Abre el fichero
NoExiste: 'Etiqueta
Msgbox "No se encontro la palabra " & c , vbCritical+vbOkOnly, "Error: No encontrado" 'Manda un mensaje de error
End Function

Espero que te sirva.

[Ther0x]

También puedes comprobar primero si existe el archivo.

Código:

Private Sub Form_Load()
If Dir("C:\hola.txt") <> "" Then
MsgBox "Existe"
Else
MsgBox "No existe"
End If
End Sub

Saludos

[-SharK_90-]

te conviene hacerlo con una base de datos en Acces... se que te va a costar aprenderlo, pero para un programa asi lo mas conveniente es una Base de datos---
SALu2