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
¿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)
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)