このテンプレートをすべてのサブフォルダーに適用する　は使用禁止。

Question

このテンプレートをすべてのサブフォルダーに適用する　は使用禁止。

Anonymous

フォルダのカスタマイズ、フォルダの種類で

使うと、各フォルダのdesktop.iniのFolderType=が無効になる。

代わりに、カスタマイズ済の親フォルダをInherit.vbsにドロップする。

Path=WScript.Arguments.Item(0)

Set fso=CreateObject("Scripting.FileSystemObject")

Set Re=New RegExp

Re.Pattern="^foldertype=(\w+)$"

Re.IgnoreCase=True

Re.MultiLine=True

Set File=fso.OpenTextFile(Path & "\desktop.ini",1,0,-2)

Text=File.ReadAll

File.Close

Set Matches=Re.Execute(Text)

FolderType=Matches.Item(0).Value

Call SubFolders(fso.GetFolder(Path))

WScript.Quit

Sub SubFolders(Folder)

For Each SubFolder In Folder.SubFolders

Call Customize(SubFolder)

Sub Customize(Folder)

Path=Folder.Path & "\desktop.ini"

If fso.FileExists(Path) Then

Set File2=fso.GetFile(Path)

File2.Attributes=File2.Attributes And Not 6

Set File=fso.OpenTextFile(Path,1,0,-2)

Text=File.ReadAll

File.Close

Else

Text=""

End If

If Re.Test(Text) Then

Text=Re.Replace(Text,FolderType)

Else

Text="[ViewState]" & vbCrLf & FolderType & vbCrLf & Text

End If

Set File=fso.OpenTextFile(Path,2,True,0)

File.Write Text

File.Close

Set File2=fso.GetFile(Path)

File2.Attributes=File2.Attributes Or 6

Folder.Attributes=Folder.Attributes Or 1

End Sub

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

1 件の回答

Answer 1

「このテンプレートをすべてのサブフォルダーに適用する」の解除は、BAGS削除。

Windows Registry Editor Version 5.00

[-HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\BagMRU]

[-HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags]

次の方法で共有

このテンプレートをすべてのサブフォルダーに適用する は使用禁止。

1 件の回答

このテンプレートをすべてのサブフォルダーに適用する　は使用禁止。