Visual Basic para Aplicaciones - Abrir txt

Life is soft - evento anual de software empresarial
 
Vista:

Abrir txt

Publicado por jenriquers (8 intervenciones) el 29/03/2007 23:29:39
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Abrir txt

Publicado por The Emulator (29 intervenciones) el 03/04/2007 15:25:22
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar