|
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
/*--在文本文件中追加数据
在文本文件中追加数据
如果文件不存在,将创建文件
--邹建 2004.08(引用请保留此信息)--*/
/*--调用示例
exec p_movefile ''''c:\aa.txt'''',''''测试写入''''
--*/
create proc p_movefile
@filename varchar(1000),--要操作的文本文件名
@text varchar(8000) --要写入的内容
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,''''OpenTextFile'''',@obj out,@filename,8,1
if @err<>0 goto lberr
exec @err=sp_oamethod @obj,''''WriteLine'''',null,@text
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
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 