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 |