「VBScript」フォルダが隠しフォルダかどうかを判定する

2020年11月15日

サンプルコード
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

VBScript

Posted by arkgame