How to use TSQL to Write VarBinary(max) blob to Filesystem

using System;
using System.Collections.Generic;
using System.Text;
using System.Collections.Specialized;
using System.Net;
using System.IO;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using ADODB;
using System.Data;
using System.Data.SqlClient;
using System.Data.Odbc;
using System.Data.OleDb;
 
 public static class FileOperations
 {
     
             public static void SendFileToSQLAsBlob(string FileName)
     {
      OdbcConnection myConnection = null;
      myConnection = new OdbcConnection(GlobalClass.LocalODBC);
   
      myConnection.Open();
 
      FileStream fs =
        new FileStream(FileName,
        FileMode.Open, FileAccess.Read);
      Byte[] imagefile = new Byte[fs.Length];
      fs.Read(imagefile, 0, (int)fs.Length); 
      fs.Close();
 
      OdbcCommand cmd = new  OdbcCommand();
 
      //Stored procedure with an image input parameter
      //  that inserts to a table containing an image column.
      cmd.CommandText = "{call up_SaveBinaryToFile(?,?)}";
      cmd.CommandType = CommandType.StoredProcedure;
      cmd.Connection = myConnection;
      OdbcParameter  pbinary =
            cmd.Parameters.Add("@Binary", OdbcType.VarBinary);
      pbinary.Direction = ParameterDirection.Input;
      pbinary.Value = imagefile;
      OdbcParameter  pfilename =
            cmd.Parameters.Add("@Filename", OdbcType.VarChar);
      pfilename.Direction = ParameterDirection.Input;
      pfilename.Value = "test.pdf";
      cmd.ExecuteNonQuery();
      myConnection.Close();
      return;
 
     }
}

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

ALTER PROCEDURE up_SaveBinaryToFile(@Binary VARBINARY(max), @FileName VARCHAR(max))
AS 
BEGIN
	DECLARE @ObjectToken INT
DECLARE @ErrorSource VARCHAR(255)
DECLARE @ErrorDesc VARCHAR(255)
DECLARE @ObjectReturn INT
 
	EXEC sp_OACreate 'ADODB.Stream', @ObjectToken OUTPUT
	EXEC sp_OASetProperty @ObjectToken, 'Type', 1
	EXEC sp_OAMethod @ObjectToken, 'Open'
	EXEC @ObjectReturn = sp_OAMethod @ObjectToken, 'Write', NULL, @Binary
	IF (@ObjectReturn <> 0)
    BEGIN
        EXEC sp_OAGetErrorInfo @ObjectToken, @ErrorSource OUTPUT, @ErrorDesc OUTPUT 
        RAISERROR('Write Error (return: ''%u'', source: ''%s'', description: ''%s'')', 15, 1, @ObjectReturn, @ErrorSource, @ErrorDesc)
    END
	SET @FileName = 'c:\temp\' + @FileName 
	EXEC sp_OAMethod @ObjectToken, 'SaveToFile', NULL, @FileName, 2
	EXEC sp_OAMethod @ObjectToken, 'Close'
	EXEC sp_OADestroy @ObjectToken
 
END
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23: