Perdona por ser pesado, pero es que es un problema tras otro
me da error el
shellexecuteProcedimiento sub o funcion no definido.
he probado usando
End private sub, lo único que se me ha ocurrido, pero nada.
Ahora mismo lo tenog colocado así:
Private Sub Command1_Click()
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
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 Sub
Mostrar Mensajes
