Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Sub List1_DblClick()
For n = 0 To List1.ListCount - 1
If List1.Selected(n) = True Then
Shell (Path & List1.List(n))
End If
Next
End Sub
Private Sub List1_DblClick()
Shell (Path & List1.List(List1.ListIndex))
End Sub
dir
dir