[VB6] Una ayuda con mi primer programa... plz :)

[raul338]

Asi deberia estar

Código (vb) [Seleccionar] Expandir


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

' Espacio en blanco, u otros procedimentos

Private Sub Command1_Click()
Const stPath As String = "C:\Users\Administrador\Desktop\"
Dim archivo As String
    archivo = Dir(stPath & "*.msu")
    While archivo <> ""
    MsgBox (FName & archivo)
         ShellExecute Me.hwnd, "open", stPath & archivo, vbNullString, "C:\Users\Administrador\Desktop\", False
        archivo = Dir
    Wend
End


PD: FSO = FSO file objects?

Si, Podes hacerlo mediante las funciones de Visual Basic, Mediante File System Object (FSO) o la infalible: mediante api

[SuperDraco]

que raro, juraría que lo puse exactamente que raul338 XD

me ha funcionado, gracias

[Elemental Code]

http://foro.elhacker.net/programacion_visual_basic/esperar_al_final_de_la_ejecucion_de_otro_programa-t313877.0.html

Shell And Wait

[SuperDraco]

http://foro.elhacker.net/programacion_visual_basic/esperar_al_final_de_la_ejecucion_de_otro_programa-t313877.0.html

Shell And Wait

voy solucionando los problmas poco a poco, ahora estoy estancado en el de ejecutar el archivo y "esperar".

He visto el code de tu post, me puedes decir como usaría esta función?

Código [Seleccionar] Expandir

' Start the indicated program and wait for it
Private Sub ShellAndWait(ByVal program_name As String, ByVal window_style As VbAppWinStyle)


no se que debo poner en ¿window_style?

Código [Seleccionar] Expandir


ShellAndWait "c:\programa.exe", ¿window_style?


gracias..


EDITO:
solucionado

ShellAndWait "C:\Program Files\Defraggler\Defraggler.exe", vbNormalFocus

Pero no funciona con archivos con extensión ".msu"



no me sirve

[seba123neo]

porque aún no entiendo bien las funciones básicas xD...

vos lo dijiste, ese es el problema principal de todo, querer tirarse a hacer cosas que no tienen ni idea. hacer algo complejo que todavia no saben hacer un bucle o las funciones principales. pero no sos el unico casi todos aca son asi. ya te digo que el foro no es para venir a preguntar cada duda que te salga, para eso no sirve el foro.

yo directamente no respondo mas cuando veo estas cosas.y lamentablemente el foro parece lleno de spam.

ojala no te ofendas, ya que normalmente lo hacen y se "enojan", cuando uno lo que quiere es enseñarle a pescar y no darle el pescado, si te dan el pescado te sirve para un rato, sin embargo si aprendes a pescar te srive para siempre, espero que se entienda lo que quise decir.

[SuperDraco]

vos lo dijiste, ese es el problema principal de todo, querer tirarse a hacer cosas que no tienen ni idea.

ojala no te ofendas, ya que normalmente lo hacen y se "enojan"

No te preocupes, tienes toda la razón, aunque ya han pasado unos dias desde que inicié este hilo y las cosas básicas ya las he practicado y aprendido (No todas, pero diría que el 70% si xD)

No te dejes llevar por lo que pone en el primer comentario del hilo, ya se bastante más, al menos el 50% de lo básico xD.

Lo primero que hago cuando me habeis proporcionado códigos es analizarlos y estudiar para que sirve cada cosa escrita del código que no entendía.

Bueno, un saludo, y gracias otra vez por la ayuda gente!