Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Dim Arreglo() As Byte
'dentro de un procedimiento:
Redim Arreglo(30,25) 'o tambien Redim Preserve funciona para que no pierdas datos.
Dim Arreglo(30,25) As Byte
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
ShellExecute Me.hwnd, "open", stPath & archivo, vbNullString, "c:\", False
'Nota el path de ejecucion es este ^
Eso me pasa por no testear.If Dir("c:\*.msu") = vbNullString Then
MsgBox "error no se encuentra archivo msu"
'esto yo lo haria con un If de una linea pero para empezar dejalo asi
End If
Dim CT As Integer
Dim archivo As String
archivo = Dir("c:\*.msu")
While archivo <> ""
'para buscar el siguiente archivo se usa dir solo
archivo = Dir
CT = CT + 1
Wend
lblTotal.Caption = Str(CT)
'CT es la cantidad de archivos
Dim archivo As String
archivo = Dir("c:\*.msu")
While archivo <> ""
'shell ejecuta
Shell archivo
'Esperar a que cierre un proceso es mas complicado, busca en el foro.
'ESTO EJECUTARA TODOS LOS MSU
'para buscar el siguiente archivo se usa dir solo
archivo = Dir
Wend
Dim archivo As String
archivo = Dir("c:\*.msu")
While archivo <> ""
'shell ejecuta msu
Shell archivo
'Suponemos que esperar al cierre del proceso es "EsperaCierre"
While esperacierre(archivo) = False
DoEvents
'doevents libera el procesador y lo deja ejecutar otras operaciones
Wend
'para buscar el siguiente archivo se usa dir solo
LblTerminados.Caption = Str(Val(LblTerminados.Caption +1))
archivo = Dir
Wend
) y tengo un cargador de Blackberry que desarme y de ahi saco 5V 700mA, con eso me serviria para encender los 7 a la vez? (si, al final pongo 7 reles que son "DJ1U TV-8").