ファイルに関する概要情報を書き換えるには？

ぱぱ 2003-12-25 21:15:30 No: 110952

ファイルに関する詳細な概要情報の取得は以下のサンプルで行えることが確認できたのですが、逆に書き換えるにはどのようにすればよいのでしょうか？

Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("C:\Scripts")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim arrHeaders(13)
For i = 0 to 13
    arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
    For i = 0 to 13
        If i <> 9 then
            Wscript.echo arrHeaders(i) _
                & ": " & objFolder.GetDetailsOf (strFileName, i)
        End If
    Next
    Wscript.Echo
Next