VBA WSツールキット、現在のファイルをバイト配列として取得する方法

Question

VBAの使用現在のワードドキュメントのコピーをWebサービスに送信しますか？どのようにして現在のドキュメントをバイト配列として取得できますか？

Webサービスを使用する方法を知っているだけで、現在のファイルをバイナリオブジェクトとして送信する方法がわかりません。

P.S.私は今朝からVBAしか使用していませんでした=）ので、簡単な答えが評価されます

Answer 1

Public Sub Example() 
    Dim bytFile() As Byte 
    bytFile = GetFileBytes("c:\test\dirdump.doc") 
    ''// Do something with bytFile here. 
End Sub 

Public Function GetFileBytes(ByVal path As String) As Byte() 
    Dim lngFileNum As Long 
    Dim bytRtnVal() As Byte 
    lngFileNum = FreeFile 
    If LenB(Dir(path)) Then ''// Does file exist? 
     Open path For Binary Access Read As lngFileNum 
     ReDim bytRtnVal(LOF(lngFileNum) - 1&) As Byte 
     Get lngFileNum, , bytRtnVal 
     Close lngFileNum 
    Else 
     Err.Raise 53 
    End If 
    GetFileBytes = bytRtnVal 
    Erase bytRtnVal 
End Function