「VBScript」指定ファイルが隠しファイルかどうかを判定するサンプル
サンプルコード
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
Coding Changes the World
サンプルコード
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