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 DelayTim_Timer()
For X = 0 To Files.ListCount - 1
FileCopy Pfad1$ + Files.List(X), Pfad2$ + File1.List(X)
Kill Pfad1$ + Files.List(X)
Next X
End Sub