Listo lo logre!!!! __________________________________
Código:
Private Sub cmdguardar_Click() Dim numero As String Dim tt As String tt = Text52.Text 'aca coloco la ruta q quiera numero = tt & Ficha On Error GoTo Fallo Open numero For Input As #5 MsgBox "La ficha ya existe."
___________________________________ Gracias a Los q me ayudaron la verdad q fue de gran utilidad este foro
En línea
"El pertenecia a esa clase singular de hombres que la especie produce rara vez, en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo cualquier sufrimiento parece natural" Ernesto CHE Guevara
Autor
En línea
