Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub CreateFileFromByte(OutputFile As String, WebServiceData As Variant)
Dim intFileNumber As Integer
intFileNumber = FreeFile
Open OutputFile For Binary As #intFileNumber
Put intFileNumber, , WebServiceData
Close #intFileNumber
End Sub
Sub Test_CreateFileFromByte()
Dim b() As Byte
Dim strPath As String, strFileName As String
'This would be your byte array from the web service
b = "The quick brown fox"
'This creates Output.pdf in the user's TEMP folder
strPath = Environ$("TEMP") & "\"
strFileName = "Output.pdf"
'Create the file
CreateFileFromByte strPath & strFileName, b
End Sub