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 Command1_Click()
Dim strDateiname As String
Dim strTempName() As String
Dim strNeuerName As String
strDateiname = "C:\Programme\bla\irgendwas\programm.exe"
If InStr(strDateiname, "\") <> 0 Then
strTempName = Split(strDateiname, "\")
strNeuerName = strTempName(UBound(strTempName))
End If
MsgBox strNeuerName
End Sub