[转]COPY OR MOVE FILES AND FOLDERS USING OLE AUTOMATION

本文转自：http://sqlindia.com/copy-move-files-folders-using-ole-automation-sql-server/

I love playing around with automation stuff. In a recent automation task, I was to copy or move files and/or folders from one location to another in SQL Server without using SQLCMD.
If you are novice to OLE automation in SQL server then I would recommend you to read my previous articles on OLE automation first.
 
--The below configuration must be enabled 
 
/*
sp_configure 'show advanced options', 1;
GO
RECONFIGURE with override;
GO 
 
sp_configure 'Ole Automation Procedures', 1;
GO
RECONFIGURE with override;
GO
*/ 
 
DECLARE @source varchar(100) = 'E:\others\Lab_SQLIndia\src\TextFile.txt'
, @destination varchar(100) = 'E:\others\Lab_SQLIndia\dest'
, @operation tinyint = 1 -- 1=CopyFile, 2=CopyFolder, 3=MoveFile, 4=MoveFolder,   
 
DECLARE @fso int
, @init int
, @errFso int
, @return varchar(100)
SET @destination = @destination + '\' 
 
EXEC @init = sp_OACreate 'Scripting.FileSystemObject', @fso OUTPUT
IF @init = 0 SELECT @errFso = @fso 
 
IF @init = 0 AND @operation = 1 
 
BEGIN 
 
IF @init = 0 SELECT @errFso = @fso 
 
EXEC @init = sp_OAMethod    @fso,
                'CopyFile', 
                NULL,
                @source,
                @destination 
 
SET @return = 'FILE SUCCESSFULLY COPIED' 
 
END 
 
ELSE IF @init = 0 AND @operation = 2 
 
BEGIN 
 
IF @init = 0 SELECT @errFso = @fso 
 
EXEC @init = sp_OAMethod    @fso,
                'CopyFolder',
                NULL,
                @source,
                @destination 
 
SET @return = 'FOLDER SUCCESSFULLY COPIED' 
 
END 
 
ELSE IF @init = 0 AND @operation = 3 
 
BEGIN 
 
IF @init = 0 SELECT @errFso = @fso 
 
EXEC @init = sp_OAMethod    @fso,
                'MoveFile',
                NULL,
                @source,
                @destination 
 
SET @return = 'FILE SUCCESSFULLY MOVED' 
 
END 
 
ELSE IF @init = 0 AND @operation = 4 
 
BEGIN 
 
IF @init = 0 SELECT @errFso = @fso 
 
EXEC @init = sp_OAMethod    @fso,
                'MoveFolder',
                NULL,
                @source,
                @destination 
 
SET @return = 'FOLDER SUCCESSFULLY MOVED' 
 
END 
 
IF @init <> 0 
 
BEGIN 
 
DECLARE 
 
@Description varchar (255), 
 
@src varchar (255), 
 
@Helpfile varchar (255), 
 
@HelpID int 
 
EXECUTE sp_OAGetErrorInfo   @errFso, 
 
                        @src OUTPUT, 
 
                        @Description OUTPUT, 
 
                        @Helpfile OUTPUT, 
 
                        @HelpID OUTPUT 
 
PRINT COALESCE(@src + @Description + @Helpfile + CAST(@HelpID as varchar(20)), 'Error Occurred') 
 
END 
 
ELSE 
 
PRINT @return 
 
EXEC sp_OADestroy @fso