「VBScript」フォルダが隠しフォルダかどうかを判定する
サンプルコード
Dim sfo
Dim fdr
Dim result
Set sfo = WScript.CreateObject(“Scripting.FileSystemObject")
Set fdr = sfo.GetFolder(“c:\data")
result = (fdr.Attributes And 2) <> 0
WScript.Echo “隠しフォルダ:" & result
Coding Changes the World
サンプルコード
Dim sfo
Dim fdr
Dim result
Set sfo = WScript.CreateObject(“Scripting.FileSystemObject")
Set fdr = sfo.GetFolder(“c:\data")
result = (fdr.Attributes And 2) <> 0
WScript.Echo “隠しフォルダ:" & result