せっかくなので、ちょっとした.vbsを練習のつもりで作ってみました。
同じフォルダにある同名.txtから1行づつ読んでタブで開くといったものです。
ま、グループ機能があるんであんまり使い道は無いですけど、テキストファイルで管理できるので良いかと。
適当な名前(hoge.vbsなど)を付けて適当なフォルダに保存しておき、デスクトップにショートカットを置いて使って下さい。
参照するテキスト(hoge.txt)の行頭が ' または # の場合はコメントとして無視するようにしてあります。
エラー処理は全くしていないので存在しないPathを指定した場合はQTがどうにかしてくれると思いますw。
Option Explicit
On Error Resume Next
Dim objFSO ' FileSystemObject
Dim objFile ' ファイル読み込み用
Dim objQTS ' QT Tabbar オブジェクト
Dim I
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Dim szScriptName
Dim szScriptBaseName
Dim szFullScriptName
Dim szOpenFoldername
szScriptName = WScript.ScriptName
szScriptBaseName = objFSO.getBaseName(WScript.ScriptFullName)
szFullScriptName = WScript.ScriptFullName
Set objQTS = CreateObject("QTTabBarLib.Scripting")
I=1
If Err.Number = 0 Then
Set objFile = objFSO.OpenTextFile(szScriptBaseName & ".txt")
If Err.Number = 0 Then
Do While objFile.AtEndOfStream <> True
szOpenFoldername=objFile.ReadLine
if left(szOpenFoldername,1)<>"'" and left(szOpenFoldername,1)<>"#" Then
ObjQTS.Open(szOpenFoldername)
WScript.Sleep 100
I=I+1
End If
Loop
objFile.Close
Else
WScript.Echo "ファイルオープンエラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If
Set objFile = Nothing
Set objFSO = Nothing
Set objQTS = Nothing