La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  1228 - EJECUTAR COMANDOS DEL DOS EN VISUAL BASIC
Autor:  Xavi
Quisiera saber como puedo ejecutar comandos del MS-DOS, como Dir, etc..., y mostrarlos en una ventana del Visual Basic.

Muchas Gracias
  Respuesta:  Xavi
Esta respuesta, esta sacada de la revista PCWorld.

Los comandos del MsDos como dir, cd, etc..., no son programas independientes, sino que sino que son comandos del Dos. Los comandos se dirigen directamente al programa command.com.
Cuando se quieres ejecutar estas intruccines desde un programa se tiene que hacer referencia el Command.com facilitando tras la opción /c el nombre del comando deseado y sus parametros.

Suponiendo que quieres mostrar un directorio desde el VB podrás dar los siguientes pasos:

Private Sub Command1_Click()
´Abrir el archivo
Dim FSO as New FileSystemObject
Dim TF as TextStream

´Obtenemos el directorio y lo mostramos en un archivo
Shell "command.com /C dir e:\libros >c:\directorio.txt"
´Abrimos el archivo
set TF=FSO.OpenTextFile("c:\directorio.txt")
´Y lo leemos entero
Text1.text=TF.ReadAll
End Sub
Deveras activar la referencia al Scripting Runtime de VB para poder utilizar los objetos FileSistemObject y TextStream a fin de abrir y leer el archivo.