■

対象フォルダの中をすべて起動します。サブフォルダの中身はそのままです。
xxx.vbs という名前のファイルで保存してください。
右ボタンの編集で、プログラムの中身を変更できます。ダブルクリックだと実行です。
以下のプログラムの対象フォルダ名を変更したらそのまま使えますたいｓｙぷろぐる

Option Explicit
Dim xPath

xPath = "○○" '対象フォルダ
Dim xShell

Dim xFS
Dim xFolder

Dim xSubFolder

Dim xFile
Set xShell = CreateObject("WScript.Shell")
Set xFS = CreateObject("Scripting.FileSystemObject")

Set xFolder = xFS.GetFolder(xPath)
'サブフォルダを開く
For Each xSubFolder in xFolder.SubFolders

    xShell.Run(Chr(34) & xSubFolder.Path & Chr(34))

Next
'ファイルを開く
For Each xFile In xFolder.Files

    xShell.Run(Chr(34) & xFile.Path & Chr(34))

Next