教えて!gooグレードポイントがdポイントに!

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

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

教えて!goo グレード

A 回答 (2件)

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



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 "完了"
    • good
    • 0

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

この中段辺りの事ですか?
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング