SQL blob/varbinary to file

SQLblobToFile.sql

/*
  To directly add a file to blob
  (this example was a 120mb file)
*/
INSERT INTO [dbo].[TableWithBlob](Id, ProductId, Filename, [ActualFile]) 
   SELECT 1,1,'filename',BulkColumn
   FROM OPENROWSET(BULK N'c:\clients\test.exe', SINGLE_BLOB) as AnyAliasFieldYouLike


/*
  To re-materialise the file (whatever type it is) you might need to execute the first set of
  SQL config options
*/
sp_configure 'show advanced options', 1;  
GO  
RECONFIGURE;  
GO  
sp_configure 'Ole Automation Procedures', 1;  
GO  
RECONFIGURE;  
GO

-- Now the query that extracts the blob to a file
-- ** SHOULD PROVIDE THE FULL DB/SCHEMA/TABLE TOO

declare @init int
declare @file varbinary(max) = (select [BlobField] from [TheDatabase].[dbo].[TableWithBlob] where Id=4)
declare @filepath nvarchar(4000) = N'c:\clients\sqltest.pdf'

EXEC sp_OACreate 'ADODB.Stream', @init OUTPUT;
EXEC sp_OASetProperty @init, 'Type', 1; 
EXEC sp_OAMethod @init, 'Open';
EXEC sp_OAMethod @init, 'Write', NULL, @file;
EXEC sp_OAMethod @init, 'SaveToFile', NULL, @filepath, 2;
EXEC sp_OAMethod @init, 'Close';
EXEC sp_OADestroy @init;