ÀûÓÃ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   --ÔÚ Microsoft? SQL Server? ʵÀýÉÏ´´½¨ OLE ¶ÔÏóʵÀý
if @err<>0 goto lberr
exec @err=sp_oamethod @obj,'MoveFile',null,@s_file,@d_file    --µ÷Óà OLE ¶ÔÏóµÄ·½·¨
if @err<>0 goto lberr
exec @err=sp_oadestroy @obj   --ÊÍ·ÅÒÑ´´½¨µÄ OLE ¶ÔÏó¡£
return
lberr:
 exec sp_oageterrorinfo 0,@src out,@desc out    --»ñÈ¡ OLE ×Ô¶¯»¯´íÎóÐÅÏ¢¡£
 select cast(@err as varbinary(4)) as ´íÎóºÅ
  ,@src as ´íÎóÔ´,@desc as ´íÎóÃèÊö
go