LANCER UN FICHIER .EXE À PARTIR D'UN FILE LIST BOX

Private Sub Command1_Click()

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

Private Sub Drive1_Change()
Dim v
v = Drive1.Drive
Dir1.Path = v
End Sub

Private Sub File1_Click()

End Sub

Private Sub File1_DblClick()
Dim v
v = Drive1.Drive
a = Left(v, 2)  
If File1.Path = a + "\" Then   
Shell File1.Path + File1.FileName, vbNormalFocus
Else
Shell File1.Path + "\" + File1.FileName, vbNormalFocus
End If
End Sub

Private Sub Form_Load()
Drive1.Drive = "c:"
Dir1.Path = "c:\"
File1.Path = "c:\"
End Sub