Urgente, en la programación vb6.0, obtenga el nombre de la ruta de un archivo en la computadora y colóquelo en texto sin abrir el archivo.

Cree un nuevo proyecto y agregue un DRIVELISTBOX, un DIRLISTBOX, un FILELISTBOX, un botón COMM y un TEXTBOX al formulario.

Escribir código:

Dim?path?As?String

Private?Sub?Drive1_Change() 'Cuando se selecciona una nueva unidad, enumera las unidades. ruta asignada a la unidad actual seleccionada en la lista de directorios

Dir1.path?=?Drive1.Drive

End?Sub

Private?Sub?Dir1_Change ( ) 'Establece el valor de ruta del cuadro de lista de archivos al valor de ruta seleccionado en el cuadro de lista de directorio

File1.path?=?Dir1.path

End?Sub

Privado?Sub?Command1_Click()

ruta?=?Archivo1.ruta?amp;?"\"?amp;?Archivo1.NombreDeArchivo

Texto1?=? ruta

¿Fin?Sub