「VBScript」指定ファイルが隠しファイルかどうかを判定するサンプル

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

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

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

result = (gf.Attributes And 2) <> 0
WScript.Echo “隠しファイル：" & result