「VBScript」Attributesでファイルが読み取り専用かどうかを判定する

2014年5月15日2020年11月15日

サンプルコード
Dim fso
Dim gf
Dim result

Set fso = WScript.CreateObject(“Scripting.FileSystemObject")
Set gf = fso.GetFile(“c:\backup\sample.txt")

result = (gf.Attributes And 1) <> 0
WScript.Echo “読み取り専用の権限：" & result