Asi deberia estar
Código (vb) [Seleccionar]
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
Cita de: pitoloko en 13 Julio 2011, 19:44 PMSi, Podes hacerlo mediante las funciones de Visual Basic, Mediante File System Object (FSO) o la infalible: mediante api
PD: FSO = FSO file objects?
