vbsでファイルを非表示

vbsファイルと同じフォルダに入っているファイルを非表示にしたいです。
再表示機能は無しでコードを書いてくださると助かります。
下の図で言うと、アスタリスクがついているファイルを非表示にしたいです。

　ドキュメント
　┗vbsテスト
　　┣hide.vbs
　　┣*music.mp3
　　┗*test.txt

No.2 回答者： tatsumaru77 回答日時： 2021/12/03 12:21

以下のスクリプトを登録、実行してください。

Option Explicit
Dim fso
Dim objFolder
Dim path
Dim wfile
Dim wobj
Set fso = CreateObject("Scripting.FileSystemObject")
path = fso.getParentFolderName(WScript.ScriptFullName)
Set objFolder = fso.GetFolder(path)
For each wfile in objFolder.Files
if wfile <> WScript.ScriptFullName then
Set wobj = fso.GetFile(wfile)
wobj.Attributes = wobj.Attributes or 2
end if
Next
msgbox "完了"

No.1 回答者： めぐみん_ 回答日時： 2021/12/02 20:56

https://atmarkit.itmedia.co.jp/ait/articles/0510 …

この中段辺りの事ですか？