Irvine ActiveX オートメーション (ver 0.4.4) API仕様書

set irvine = CreateObject("Irvine.Api")
MsgBox("Irvineのバージョンは " & irvine.Version & " です。")

irvine = new ActiveXObject("Irvine.Api");
irvine.Download("http://127.0.0.1/", 1);

Sub BulkDownloadWithIrvineFromCSV()
    Dim irvine As Object
    Dim item As Object
    Dim csvFilePath As String
    Dim saveFolder As String
    Dim fileNo As Integer
    Dim line As String
    Dim data() As String
    Dim fileName As String
    Dim fileUrl As String
    
    ' --- ユーザー設定（編集する部分） ---
    csvFilePath = "C:\path\to\list.csv"  ' CSVファイルのパス
    saveFolder = "C:\Downloads"          ' 保存先フォルダ
    ' -----------------------------------
    
    ' Irvine オブジェクト生成
    Set irvine = CreateObject("Irvine.Api")
    
    ' CSVファイルを開く
    fileNo = FreeFile
    Open csvFilePath For Input As #fileNo
    
    ' 1行ずつ処理
    Do While Not EOF(fileNo)
        Line Input #fileNo, line
        line = Trim(line)
        If Len(line) > 0 Then
            data = Split(line, ",")
            If UBound(data) = 1 Then
                fileName = Trim(data(0))
                fileUrl = Trim(data(1))
                
                ' URL追加
                irvine.AddUrl fileUrl, 0
                
                ' 追加した最後のアイテムを取得
                Set item = irvine.Current.Items(irvine.Current.ItemCount - 1)
                
                ' 保存フォルダとファイル名設定
                item.Folder = saveFolder
                item.Filename = fileName
                
                ' 即時ダウンロード開始
                irvine.Current.StartItem irvine.Current.ItemCount - 1
            End If
        End If
    Loop
    
    Close #fileNo
    
    MsgBox "すべてのダウンロードを開始しました。", vbInformation
    
    ' 後始末
    Set item = Nothing
    Set irvine = Nothing
End Sub

写真１.jpg,https://www.aaaa.com/img/photo.jpg
風景１.jpg,https://www.aaaa.com/img/nautre.jpg
電車１.jpg,https://www.aaaa.com/img/train.jpg
電車２.jpg,https://www.aaaa.com/img/trainex.jpg
風景2.jpg,https://www.aaaa.com/img/seaside.jpg
写真２.jpg,https://www.aaaa.com/img/mountain.jpg