vbscriptのプロシージャコールまたは引数が無効です

Question

vbスクリプトを使用してファイルをサーバーにアップロードしています。私がいる問題は、私は、このようなASCII形式にファイルを設定した場合ということです...

Set oFile = oFS.CreateTextFile(sPath & FileName, True, False) 

私は

無効なプロシージャ呼び出しまたは引数を言うサブが呼び出されたエラーを取得します

が、私は

Set oFile = oFS.CreateTextFile(sPath & FileName, True, True) 

をUnicodeにファイルを設定した場合、それがアップロード正常に終了しましたが、誤ったエンコーディングのために開けません。フォーマットがASCIIの場合は、エラーが発生し 行はこの1つであるoFileは私がここで

上に作成したASCIIファイルです。この1

oFile.Write BinaryToString(FileData) 

はエラーを生成したソースコードがありますさ。アップロード機能です。ネットから降りました。

Public Sub SaveToDisk(sPath) 
     Dim oFS, oFile 
     Dim nIndex 

     If sPath = "" Or FileName = "" Then Exit Sub 
     If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" 

     Set oFS = Server.CreateObject("Scripting.FileSystemObject") 
     If Not oFS.FolderExists(sPath) Then Exit Sub 

     Set oFile = oFS.CreateTextFile(sPath & FileName, True, False) 
     oFile.Write BinaryToString(FileData) 

     oFile.Close 
    End Sub 

    Function BinaryToString(Binary) 
     'Antonin Foller, http://www.motobit.com 
     'Optimized version of a simple BinaryToString algorithm. 

     Dim cl1, cl2, cl3, pl1, pl2, pl3 
     Dim L 
     cl1 = 1 
     cl2 = 1 
     cl3 = 1 
     L = LenB(Binary) 

     Do While cl1<=L 
      pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
      cl1 = cl1 + 1 
      cl3 = cl3 + 1 
      If cl3>300 Then 
       pl2 = pl2 & pl3 
       pl3 = "" 
       cl3 = 1 
       cl2 = cl2 + 1 
       If cl2>200 Then 
        pl1 = pl1 & pl2 
        pl2 = "" 
        cl2 = 1 
       End If 
      End If 
     Loop 
     BinaryToString = pl1 & pl2 & pl3 
    End Function 

サーバ上で設定できますか？これが意味をなさないのであれば...

Answer 1

私は、BinaryToStringがASCIIコード（実際には現在のOEMコードページ）だけでなく、OEMコードページセット以外のユニコード範囲の他の文字も返すと思われます。

BinaryToStringは正確に何をしますか？

Set oFile = oFS.CreateTextFile(sPath & FileName, 8) 

このページでは、私には有用であった：

Answer 2

は不当に長い時間が本当に私には意味を加えることなく、この同じ問題を扱う、およびUnicodeに関連していないの後、私は最終的にそれがで動作するようになりました。 http://ns7.webmasters.com/caspdoc/html/vbscript_filesystemobject_object_opentextfile_method.htm

イリヤEvdokimov