VBScriptでファイルの最終更新日付を変更したいがエラーとなる

Question

前提

Unixtimeがファイル名になっているファイルに対して、
そのファイル名に基づいて最終更新日時を設定したいです。

何がダメなのかさっぱり分かりません…何かヒントだけでもいただけませんか。

発生している問題・エラーメッセージ

該当のソースコード

Option Explicit
 
Dim fso,folder,file,unixTime,jst,oShell,oFolder,oFolderItem,fileName
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(".\")
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(folder)

For Each file In folder.Files

  'ファイル名がUnixtimeになっているものだけを対象に実施
  if( Left(file.Name, 2) = "16" ) then

    'ファイル名から、撮影日時を取得
    fileName = file.Name
    unixTime = Left(fso.GetBaseName(fileName),10)
    jst = DateAdd("h", 9, DateAdd("s", unixTime, DateSerial(1970, 1, 1)))
    
    '更新日時の変更
    msgbox fileName
    Set oFolderItem = oFolder.ParseName(fileName)
    oFolderItem.ModifyDate = jst

  end if
Next

Set fso = Nothing

補足情報（FW/ツールのバージョンなど）

このスクリプトと同じフォルダに、操作対象のファイルがあります。

Comments

[mixus]

エラー発生個所の21行目は
Set oFolderItem = oFolder.ParseName(fileName)
の部分です。

Answer 1

Set oFolder = oShell.Namespace(folder)
を
Set oFolder = oShell.Namespace(folder.Path)
にすると動きませんか？

Comments

[mixus]

その通りでした…！
どうもありがとうございました。

Answer 2

まずはそのエラーがどこで発生しているのかを確認しよう
２１行目ってどこでしょうか。

どーも更新日時を変更してるところのエラーじゃないようですが