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.
dim liste
set fs = createobject("Scripting.FileSystemObject")
Sub Listordner(ordner)
Set ordner = fs.getfolder(ordner)
For Each file In ordner.files
liste = liste & file.path & vbCr
Next
For Each unterordner In ordner.subfolders
liste = liste & unterordner.path & vbCr
Listordner unterordner
next
End Sub
ordner ="C:\test\"
Listordner ordner
set logbuch = fs.opentextfile("C:\inhalt.txt", 8, true,0)
logbuch.writeline liste
logbuch.close
msgbox("done.")