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.
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.")