'//-------------------------------
'// Stamp update of time
'// 2010/09/03 Created io
'// 2010/09/24 added io
'//-------------------------------
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\Documents and Settings\user\My Documents\Paster Data")
if (objFolder Is Nothing) Then
    '// 指定されたフォルダがありません。
Else
    Set objFolderItem = objFolder.ParseName("MenuIo.txt")
    if (objFolderItem Is Nothing) Then
        '// 指定されたフォルダアイテムがありません。
    Else
        objFolderItem.ModifyDate = Now
        Set objFolderItem = Nothing
    End If

    Set objFolder = Nothing
End If

Set objShell = Nothing