vbscript - VBScript で空のファイルをダウンロードする

Question

このスクリプトで空のファイルをダウンロードしようとすると、次のエラーが表示されます: 引数が間違った型であるか、許容範囲外であるか、互いに競合しています。どうすれば修正できますか？

これが私のスクリプトです

    Set objHTTP = CreateObject("WinHTTP.WinHttpRequest.5.1")
    objHTTP.Open "GET", "http://localhost/file.txt", False
    objHTTP.Send

    Dim objStream
    Set objStream = CreateObject("ADODB.Stream")
    With objStream
        .Type = 1
        .Open
        .Write objHTTP.ResponseBody
        .SaveToFile "C:\file.txt"
        .Close
    End With
    Set objStream = Nothing

この問題は空のファイルでのみ発生します。