Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Sub Command1_Click()
Dim newFolder As String
Dim fs
newFolder = InputBox("Bitte geben Sie den neuen Ordner an", "Neuer Ordner")
If newFolder <> "" Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder (Dir1.Path & "\" & newFolder)
Dir1.Path = Dir1.Path & "\" & newFolder
End If
End Sub
danke, aber warum so kompliziert?