COmo puedo hacer para ejecutar los archivos

[shadow.darknesses]

como puedo hacer para ejecutar los archivos de esto

con este code

Código [Seleccionar] Expandir

Option Explicit

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub drv_discos_Change()
On Error Resume Next
Dir1.Path = drv_discos.Drive
End Sub

yo seleciono un archivo y lo ejecuto del objeto file1
xfavor
Saludos...
yo le puse esto pero no me funca

Código [Seleccionar] Expandir


Private Sub File1_Click()
Dir1.Path = Shell(File1) 'me dice archivo no encontrado
End Sub


[Sancho.Mazorka]

Lo estas haciendo al revez, mira es:

Código [Seleccionar] Expandir

Private Sub File1_Click()
Shell Dir1.Path & "\" & File1.filename 'ahora si man ;)
End Sub


Sancho.Mazorka    

[~~]

Y si kieres ejecutarlos ocultos o con alguna opcion mas mejor usa la api shell execute