Replacing Comments in file properties

Question

I have successfully retrieved the comments of a file using the following code
    FileName = gstrDir & "\" & gstrFile
    vFile = Mid(FileName, InStrRev(FileName, "\") + 1&)
    vFolder = Left(FileName, Len(FileName) - Len(vFile))
    With CreateObject("Shell.Application").NameSpace(vFolder)   'Reference Microsoft Shell Controls And Automation so
        Do:  sDetail = .GetDetailsOf(.Items, i)                             
'that the Variant variables can be dim'ed as Strings
             If LenB(sDetail) Then i = i + 1& Else Exit Sub
        Loop While StrComp(sDetail, "Comments", vbTextCompare)
        Me.txtOldComments = .GetDetailsOf(.Items.Item(vFile), i - 1&)
    End With
Now, How do I (with similar code) replace the comments with new comments?
Thanks

Answer 1

I dont think its related to windows XP.
Please post the same in scripting forums.
Arnav Sharma | http://arnavsharma.net/ Please remember to click “Mark as Answer” on the post that helps you, and to click “Unmark as Answer” if a marked post does not actually answer your question. This can be beneficial to other community members reading
the thread.