sp_OAMethod'DeleteFile'方法不能在SQL Server 2008 R2中工作

Question

我有一個sql存儲過程，我使用sp_OAMethod從windows文件系統中刪除文件。當我們使用sql server 2005的時候，這用於正常工作，但是現在在使用sql server 2008 R2時根本無法工作。我已經讀過，你可以使用SQLDMO/SQLCLR，但是我找不到任何有關這些方法的體面信息。我以前的代碼如下：

-- declare variables 
declare  @ObjectID  nvarchar(10), 
      @ObjectType  nvarchar(255), 
      @BackupName  nvarchar(255), 
      @BackupLocation nvarchar(255), 
      @ExpiryDate  datetime, 
      @DeletedStatus bit, 
      @SQL   nvarchar(4000), 
      @SQL1   nvarchar(4000), 
      @SQL2   nvarchar(4000), 
      @Result   int, 
      @FSO_Token  int, 
      @FileLocation nvarchar(4000) 

-- declare cursor for table backups 
declare backupexpired_cursor cursor for 
select dbo.tbl_BackupObjects.ObjectID, dbo.tbl_BackupObjects.ObjectType, dbo.tbl_BackupObjects.BackupName, 
    dbo.tbl_BackupObjects.BackupLocation, dbo.tbl_BackupObjects.ExpiryDate, dbo.tbl_BackupObjects.Deleted 
from dbo.tbl_BackupObjects 
where dbo.tbl_BackupObjects.Deleted <> 1 

-- open cursor 
open backupexpired_cursor 

-- fetch the next record from the cursor 
fetch next from backupexpired_cursor into @ObjectID, @ObjectType, @BackupName, @BackupLocation, @ExpiryDate, @DeletedStatus 

while (@@FETCH_STATUS <> -1) 
begin 
    if (@@FETCH_STATUS <> -2) 
    begin 
     if (@ExpiryDate < GetDate()) 
     begin 
      if (@ObjectType = 'Table') 
      begin 
       begin try 
        begin transaction 
         -- Only done if the object type is a table object 
         -- Remove old backup 
         select @SQL = 'drop table dbo.' + quotename(@BackupName) 
         exec sp_executesql @SQL 
         -- update the deleted status and the date deleted of the deleted object 
         select @SQL1 = 'update tbl_BackupObjects 
             set Deleted = 1, 
             DeletedDate = GetDate() 
             where ObjectID = ''' + @ObjectID + '''' 

         exec sp_executesql @SQL1 

        commit transaction 
       end try 
       begin catch 
        rollback transaction 

        select @SQL1 = 'update tbl_BackupObjects 
           set Deleted = 0, 
           DeletedDate = NULL 
           where ObjectID = ''' + @ObjectID + '''' 

        exec sp_executesql @SQL1 
       end catch 
      end 
      else 
      begin 
       begin try 
        begin transaction 
         -- Only done if the object(view, stored procedure, and/or function is saved 
         -- in a file located on the windows file system. 
         -- Create File Location 
         set @FileLocation = 'G:\Backup Registry Script Files\' + @BackupLocation + '\' + @BackupName + '' 

         -- Create a token of the object 
         EXEC @Result = sp_OACreate 'Scripting.FileSystemObject', @FSO_Token OUTPUT 

         -- Call the deletefile method using the @FileLocation parameter and the token created above: 
         --  - The object token created by sp_OACreate 
         --  - The method name 
         --  - The method's return value 
         --  - Parameters that will be used by the object method 
         EXEC @Result = sp_OAMethod @FSO_Token, 'DeleteFile', NULL, @FileLocation 

         -- Execute ole method 
         EXEC @Result = sp_OADestroy @FSO_Token  
         -- update the deleted status and the date deleted of the deleted object 


         select @SQL1 = 'update tbl_BackupObjects 
             set Deleted = 1, 
             DeletedDate = GetDate() 
             where ObjectID = ''' + @ObjectID + '''' 

         exec sp_executesql @SQL1 

        commit transaction 
       end try 
       begin catch 
        rollback transaction 

        select @SQL1 = 'update tbl_BackupObjects 
           set Deleted = 0, 
           DeletedDate = GetDate() 
           where ObjectID = ''' + @ObjectID + '''' 

        exec sp_executesql @SQL1 
       end catch 
      end 
     end 
    end 
    -- fetch the next record from the cursor 
    fetch next from backupexpired_cursor into @ObjectID, @ObjectType, @BackupName, @BackupLocation, @ExpiryDate, @DeletedStatus 
end 

-- set the Last and Next Removal Dates 
select @SQL2 = 'update tbl_BackupRemovalDate 
       set LastRemovalDate = GetDate(), 
        NextRemovalDate = GetDate() + 7' 
exec sp_executesql @SQL2 

-- close cursor 
close backupexpired_cursor 
deallocate backupexpired_cursor 

我已經看到，SQLDMO頗爲相似，我有什麼，但是我無法找到如何使用這種方法來刪除一個文件系統文件中的任何信息。誰能幫忙？

Answer 1

您是否有Enable Ole Automation Procedures功能？

試試這個

EXEC sp_configure 'show advanced options', 1 
RECONFIGURE 
EXEC sp_configure 'Ole Automation Procedures', 1 
RECONFIGURE