利用SQL移动硬盘文件

领测软件测试网
if exists (select * from dbo.sysobjects where id = object_id(N@#[dbo].[p_movefile]@#) and OBJECTPROPERTY(id, N@#IsProcedure@#) = 1)
drop procedure [dbo].[p_movefile]
GO

/*--移动服务器上的文件

 不借助 xp_cmdshell ,因为这个在大多数时候都被禁用了

--邹建 2004.08(引用请保留此信息)--*/

/*--调用示例

 exec p_movefile @#d:\aa.txt@#,@#c:\@#
--*/
create proc p_movefile
@s_file varchar(1000), --源文件
@d_file varchar(1000) --目标文件
as
declare @err int,@src varchar(255),@desc varchar(255)
declare @obj int

exec @err=sp_oacreate @#Scripting.FileSystemObject@#,@obj out
if @err<>0 goto lberr

exec @err=sp_oamethod @obj,@#MoveFile@#,null,@s_file,@d_file
if @err<>0 goto lberr

exec @err=sp_oadestroy @obj
return

lberr:
 exec sp_oageterrorinfo 0,@src out,@desc out
 select cast(@err as varbinary(4)) as 错误号
  ,@src as 错误源,@desc as 错误描述
go

文章来源于领测软件测试网 https://www.ltesting.net/