https://winactor.com/questions/question/%e5%90%8c%e5%90%8d%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%81%ae%e6%96%b0%e6%97%a7%e3%81%ae%e6%af%94%e8%bc%83%e3%81%af%e5%8f%af%e8%83%bd%e3%81%a7%e3%81%97%e3%82%87%e3%81%86%e3%81%8b%ef%bc%9f/

上記URLで、BETTY様がご回答されていたVBSは

３つのファイルを比較し最新のものを変数に残すようなスクリプトだったのですが、

私は４つのファイルを比較しようと考えています。

そのためif文を書き換えるとできると直感ではわかったのですが、VBSを書いたことがなく難航しています。

どなたかご教示いただけれると幸いです。

※あとこのような過去の回答に類似した質問があった場合、新規でご質問してもよいのでしょうか。

　もしくは、既存の質問にコメントとして質問をするのでしょうか。

下記は私がBETTY様の書かれたVBSを参考にして書いたVBSです（エラーがでています。）

Dim objFSO
Dim objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile_1 = objFSO.GetFolder(!対象1_フォルダパス!)
Set objFile_2 = objFSO.GetFolder(!対象2_フォルダパス!)
Set objFile_3 = objFSO.GetFolder(!対象3_フォルダパス!)
Set objFile_4 = objFSO.GetFolder(!対象4_フォルダパス!)

ret1 = objFile_1.DateLastModified
ret2 = objFile_2.DateLastModified
ret3 = objFile_3.DateLastModified
ret4 = objFile_4.DateLastModified

If ret1 > ret2 Then
  If ret3 > ret4 Then
    If ret1 > ret3 Then
      newest = objFile_1
    Else newest = objFile_3
    End If
  Else If ret1 > ret4 Then
    newest = objFile_1
  Else newest = objFile_4
  End If
Else If ret3 > ret4 Then
  If ret2 > ret3 Then
    newest = objFile_2
  Else newest = objFile_3
  End If
Else If ret2 > ret4 Then
  newest = objFile_2
Else newest = objFile_4
End If

Call SetUMSVariable($最新日時のファイルパス$, newest)