利用SQL移动硬盘文件(转于zjcxc)

导读:

 1 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_movefile]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
2   drop procedure [dbo].[p_movefile]
3   GO
4   /*--移动服务器上的文件
5   不借助 xp_cmdshell ,因为这个在大多数时候都被禁用了
6   --邹建 2004.08(引用请保留此信息)--*/
7   /*--调用示例
8   exec p_movefile 'd:/aa.txt','c:/'
9   --*/
10   create proc p_movefile
11   @s_file varchar(1000), --源文件
12   @d_file varchar(1000) --目标文件
13   as
14   declare @err int,@src varchar(255),@desc varchar(255)
15   declare @obj int
16   exec @err=sp_oacreate 'Scripting.FileSystemObject',@obj out
17   if @err<>0 goto lberr
18   exec @err=sp_oamethod @obj,'MoveFile',null,@s_file,@d_file
19   if @err<>0 goto lberr
20   exec @err=sp_oadestroy @obj
21   return
22   lberr:
23   exec sp_oageterrorinfo 0,@src out,@desc out
24   select cast(@err as varbinary(4)) as 错误号
25   ,@src as 错误源,@desc as 错误描述
26   go



posted @ 2012-01-04 01:07  json_chan  阅读(345)  评论(0编辑  收藏  举报