Irvine Part22

過去ログに解答があった
367 ：名無し~3.EXE：2008/02/19(火) 21:38:37 ID:qK/Wztn/
おれはこのVBSを作って自作ソフトからファイル渡ししてるけど
DoLoopとかforで回せばいいじゃん、めんどくさがりだなあ
'IrvineQueueFolder.vbs 'キューフォルダを指定してURLやURLリストファイル郡を登録
'IrvineQueueFolder.vbs 引数1 引数2 引数3 ...
'引数は、[キューフォルダ]または[URL]または[URLリストファイル名]で混在可
'キューフォルダは"/"で始まるように絶対指定する
QueueFolder="/Default/dorothy2/Auto"　'キューフォルダの指定(デフォルト)
'
Set Irvine = WScript.CreateObject("Irvine.Api")
Set arg = WScript.Arguments　　'コマンドラインの引数郡
For i=0 to arg.Count - 1
　If Left(arg(i), 7)="http://" Then　'URL
　　Url = arg(i)
　　Irvine.AddQueueItem QueueFolder, Url　'アイテム登録
　ElseIf Left(arg(i), 1)="/" Then　'キューフォルダ指定
　　QueueFolder = arg(i)　'キューフォルダの指定(指定以降はこのフォルダになる)
　Else　　　　　　　　'URLリストファイル
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　FileName = arg(i)
　　Set TextFile = fso.OpenTextFile(FileName) ' テキストファイルのオープン
　　Do Until TextFile.AtEndOfStream
　　　Url = TextFile.ReadLine ' 1行読み込み
　　　Irvine.AddQueueItem QueueFolder, Url　'アイテム登録
　　Loop
　End If
Next
Set irvine = Nothing
368 ：名無し~3.EXE：2008/02/19(火) 21:40:43 ID:qK/Wztn/
ああスマン、リファラ必要だったか、間違えた
ほんとごめん、無かった事にしてくれｗ