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
