shell vb6

Iniciado por asdexiva, 17 Enero 2013, 20:56 PM

0 Miembros y 1 Visitante están viendo este tema.

asdexiva

ay alguna forma de ejecutar todos los exe de una carpeta
Shell("*.exe") <--algo asi xD  una idea xD please

$Edu$

Usando eso de Shell es algo un poco menos profesional como quien dice.. ya que estas queriendo usar Batch sin sentido.

Busca sobre la Api ShellExecute.

Danyfirex

siempre hay la forma. a ver si estudias mas y preguntas menos.  ;D


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


Private Sub Form_Load()
Call ListFiles("C:\", "*exe")
End Sub
Private Function ListFiles(strPath As String, Optional Extention As String)
Dim File As String
       
    If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
       
    If Trim$(Extention) = "" Then
        Extention = "*.*"
    ElseIf Left$(Extention, 2) <> "*." Then
        Extention = "*." & Extention
    End If
       
    File = Dir$(strPath & Extention)
    Do While Len(File)
    Call ShellExecute(0, "Open", strPath & File, "", "", 1)
    File = Dir$
    Loop
End Function


saludos

asdexiva

jajaj si muy pregunton yo hahaha
oye no te sabes un librillo bueno para aprender mas sobre vb6 en pdf ?

si te lo sabes hazme el favor de pasarmelo para no preguntar tanto haha xD
a y gracias funciona xd

$Edu$

En pdf no se pero te recomiendo el tutorial de "el guille" en su web, es el clasico tutorial donde aprendimos muchos aca xD

The_Mushrr00m

CitarEn pdf no se pero te recomiendo el tutorial de "el guille" en su web, es el clasico tutorial donde aprendimos muchos aca xD

De hecho..!  :xD

Puedes buscarte también La biblia de oro de VB6 en su momento aprendi mucho
«No hay camino para la verdad, la verdad es el camino»


Danyfirex

100% de acuerdo con las dos respuestas anteriores.

saludos

PD: y por supuesto viendo temas aquí en el foro.