Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » esto es lo mio.

Visual Basic - esto es lo mio.

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

esto es lo mio.

Publicado por cesar (1 intervención) el 06/05/2012 05:39:49
Sé que estoy en el foro que es:
Tengo que leer los nombres de los archivos que llegan en una memoria USB. Son carpetas que traen imágenes y un pdf. Deseo abrir totalmente el pdf y tomar datos de allí. Pues los necesito (los tomo pero abriendo el pdf y los copio) pero no se si podre hacer que un programa me lo abra automáticamente pues también necesito contar el total de imágenes que tiene pues debo ponerlas en un formato ordenado para imprimir.
Sé que hay jpg y pdf en una carpeta que no se como leer su nombre.
Tengo vb 6.0
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

esto es lo mio.

Publicado por jcmg (518 intervenciones) el 07/05/2012 05:58:22
Hola Cesar
la opcion que desees
F: es la unidad usb, si hay otra solo cambiala
lo puedes poner en un boton si lo deseas

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Form_Load()
on error resume next
ejecutar
End Sub
 
Private Sub Form_Load()
on error resume next
ejecutar2
End Sub
 
Sub ejecutar()
    Set ejecutar = CreateObject("wscript.shell")
    ejecutar.run "F:\Pdf a abrir.Pdf"
End Sub
 
Sub ejecutar2()
    e = Shell("cmd /c F:\Pdf a abrir.Pdf")
End Sub
 
en un boton
Private Sub Command1_Click()
    Set ejecutar = CreateObject("wscript.shell")
    ejecutar.run "F:\Pdf a abrir.Pdf"
End Sub
 
Private Sub Command2_Click()
    e = Shell("cmd /c F:\Pdf a abrir.Pdf")
End Sub


con este codigo mandas todos los nombres de las imagenes y pdfs a un archivo en la unidad C:
shell("cmd /c dir f: /s *.Jpg >c:\imagen.txt")
shell("cmd /c dir f: /s *.pdf>c:\pdsf.txt")
puedes ponerlos en un boton a cada uno
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