t-sql读写文件

declare @FilePath nvarchar(400),@xmlstr varchar(8000);
  Declare @INT_ERR int ----错误代码，0 成功
  Declare @INT_FSO int ----FSO对象标志
  Declare @INT_OPENFILE int ----文本文件对象标志
  Declare @STR_CONTENT varchar(8000) ----文件内容
  DECLARE @output varchar(255)
  DECLARE @hr int
  DECLARE @source varchar(255)
  DECLARE @description varchar(255)
  select @FilePath = logid from optlog;
  set @FilePath = 'f:/' + @FilePath + '.xml';
  --set @FilePath='f:/mp.xml'
  --set @STR_CONTENT = @xmlstr
  select @STR_CONTENT = xmlinfo from optlog;
  --创建FSO对象
  --甚至可以是我们自己写的dll控件都可以
  EXEC @INT_ERR = sp_OACreate 'Scripting.FileSystemObject', @INT_FSO OUTPUT
  if(@INT_ERR <> 0)
  BEGIN
    EXEC sp_OAGetErrorInfo @INT_FSO
    RETURN
  END
  -----文件路径
  Declare @STR_FILENAME nvarchar(50)
  Set @STR_FILENAME = @FilePath
  ---FSO.OpenTextFile(FileName, 1, FALSE),第二个参数1表示只读，第三个参数false表示文件不存在时不创建
  ----创建文本文件对象
  ----FSO的所有方法都可以用下面类似方式创建，可以实现文件的任意操作，非常方便
  EXEC @INT_ERR=SP_OAMETHOD @INT_FSO,'CreateTextFile',@INT_OPENFILE OUTPUT,@STR_FILENAME
  if(@INT_ERR <> 0)
  BEGIN
    EXEC sp_OAGetErrorInfo @INT_OPENFILE,@source OUT, @description OUT
     SELECT @output = '   Source: ' + @source
       PRINT @output
       SELECT @output = '   Description: ' + @description
       PRINT @output
    RETURN
  END
  ----读取文件，内容放到@STR_CONTENT
  ----读到了文件内容，后面的处理就好办了
  EXEC @INT_ERR=SP_OAMETHOD @INT_OPENFILE,'Write',null,@STR_CONTENT
  if(@INT_ERR <> 0)
  BEGIN
    EXEC sp_OAGetErrorInfo @INT_FSO, @description OUT
SELECT @output = '   Source: ' + @source
       PRINT @output
       SELECT @output = '   Description: ' + @description
       PRINT @output
    RETURN
  END
  ----销毁创建的对象
  EXEC @INT_ERR=SP_OADESTROY @INT_OPENFILE
  EXEC @INT_ERR=SP_OADESTROY @INT_FSO