VBSファイルのフォルダ削除の記述の仕方で質問致します。

デスクトップ直下の作成日時を判定するなら、こんな感じでしょうか。

Set fso = CreateObject("Scripting.FileSystemObject")

target_folder = "C:\Users\test\Desktop"
date_now = Now

For Each folder In fso.GetFolder(target_folder).SubFolders
    If DateDiff("h", folder.DateCreated, date_now) > 168 Then
        folder.Delete(True)
    End If
Next

DateDiff を日付指定（"d"）で呼ぶと四捨五入されて返るので、時間で指定（168 ＝ 24×7）しています。


階層の下にあるフォルダの作成日時も考慮するならば、仕様を決める必要があります。

Desktop
　├ Folder-A　　　　　 10日前
　│　 ├ Folder-A1　　　9日前
　│　 └ Folder-A2　　　2日前
　：

7日以上前に作成された Folder-A の配下に、7日未満前に作成された Folder-A2 があった場合、

• Folder-A2 含めて、丸ごと消す
• Folder-A2 は残す
  • Folder-A 配下のファイルはどうする？
  
  

日付単位で作っているログを入れていくようなフォルダであれば、気にすることはないのでしょうけれど。