利用SQL移动硬盘文件

　2005-11-06 17:00:57　来源：WEB开发网　　　

核心提示：·移动硬盘选购之完全指南·20G容量仅售299元三款超值移动硬盘导·紧记五大要点编辑教你选购移动硬盘·移动硬盘使用技巧十秘笈大放送·移动硬盘不显示盘符·移动硬盘的购买和使用注意事项·系统无法识别移动硬盘的五种可能·移动硬盘分类·U盘启动电脑,USB移动硬盘启动电脑,USB·情人节送礼新选择四款超精美移动硬盘以下的

以下的代码将演示如何利用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