Shell
09.07.2019 08:15:31
Antonio
Private Sub ListBox5_Click()
Dim path As String
Dim i As Integer
path = "C:\Users\a.mazza\Desktop\PS\LICK by NECK"
For i = 0 To ListBox5.ListCount - 1
If ListBox5.Selected(i) = True Then
Shell (path & "\" & ListBox5.List(i))
' MsgBox path & ListBox5.List(i)
End If
Next
End Sub
Mein Problem ist das die Datei in der Taskleiste (also minimiert) geöffnet wird und ich würde gerne das Programm am Schirm geöffnet haben.
Ich hoffe auf ein wenig Hilfe.
Vielen Dank im Voraus
Antonio
Anzeige