Rutas

Buenas tardes theabyss
¿Qué tal?
Tengo una duda
Quisiera poner en un textbox un nombre de archivo, darle a un botón y si el archivo existe, que me muestre en una label su ruta completa.
¿Hay alguna forma de hacerlo?
Muchas gracias

1 Respuesta

Respuesta
1
//pedro muller Copyright © 2002
Private Sub Command1_Click()
Dim archivosistema, archivo
On Error GoTo noencontrado
Set archivosistema = CreateObject("Scripting.FileSystemObject")
Set archivo = archivosistema.GetFile(Text1.Text)
MsgBox (archivosistema.GetFile(Text1.Text))
Exit Sub
noencontrado:
MsgBox ("el archivo no existe...")
End Sub
'nesecitas de un textbox (text1)y un boton(command1)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas