'フォルダをVBスクリプトによりフォルダ属性を変更して見えなくします
'○○○.VBSにて保存して実行してください。

On Error Resume Next
Dim path
path=inputbox("フォルダ名？")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject") 
Fs.FileExists(path) 
Set f=Fs.GetFolder(path)

if f.Attributes=55 then
	f.Attributes=0
else
	f.Attributes=-1
end if
if Err.Number<>0 then MsgBox "エラーでした"

'55または-1 不可視ファイル

'0 標準ファイル 
'1 読み取り専用ファイル 
'2 隠しファイル 
'4 システムファイル 
'8 ディスクドライブボリュームラベル(取得のみ可能) 
'16 フォルダまたはディレクトリ(取得のみ可能) 
'32 アーカイブファイル 
'64 リンクまたはショートカット(取得のみ可能) 
'128 圧縮ファイル(取得のみ可能) 
'属性を設定するときは、設定したい属性を表す値の合計をAttributesプロパティに設定します。たとえば「読み取り専用」と「隠しフォルダ」の属性を設定するときは、Attributes = 1 + 2 ま'たは Attributes = 3とします。