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.
'Variablen deklarieren
Dim fso As FileSystemObject
Dim f As File
'Objekte erzeugen
Set fso = New FileSystemObject
Set f = fso.GetFile("C:\test.txt")
If (f.Attributes And ReadOnly) = ReadOnly Then
MsgBox "schreibgeschützt"
Else
MsgBox "nicht schreibgeschützt"
End If
'Objekte freigeben
Set f = Nothing
Set fso = Nothing