Visual Basic para Aplicaciones - Abrir txt

Hola:

Tengo un problema

En un foldel C:\Archivos

tengo 15 archivos TXT y quiero que al pulsar un boton me abra todos los archivos que esten en este folder

Algunos dias este folder tiene 10 archivos otro 20 etc. y quiero que el dia que los abra al darle click en el boton me abra todos los archivos que encuantre en ese folder

Saludos

Hola

Puedes usar la funcion Dir la cual se puede usar para listar archivos y directorios, si se le especifica un filtro puedes traer los archivos de una extencion especifica en este caso un txt, ahora puedes usar la instruccion Shell que se encarga de ejecutar programas en este caso vamos a abrir el Bloc de Notas el cual recibe un parametro que seria el archivo a abrir

aqui estaria el codigo que abre todos los archivos que se ecunentre en la unidad C:\ y que sean archivo de texto txt.

Private Sub Command1_Click()
Dim strArchivo As String
strArchivo = Dir("C:\*.txt")
While strArchivo <> ""
Shell "NotePad " & "C:\" & strArchivo, vbMaximizedFocus
strArchivo = Dir
Wend
End Sub

Averigua sobre la funcion Dir y Shell para mas detalles.

Saludos
http://www.theemulator.tk