企业管理器生成的多个SP脚本文件的改名

前面刚写了一个用SQLDMO取数据库对象脚本的文章，里面提到过用企业管理器也可以同时生成多个SP的脚本，且能一个SP对应一个文件。

但是，这样做有一个缺点，就是如果是一个SP对应一个文件的话，那么生成的结果文件的名称是下面：

   dbo.sp_name.PRC

这样的，很是不好。

 

下面就再提供一个脚本，针对这种情况，来重新命名这些文件！去掉前面的dbo.，并且将后缀名改为.sql。

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:/" & strComputer & " ootcimv2")

Set colFiles = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='D:MyDocYOUHU2K2FltOfflineOrderDB'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In colFiles
    strFileName = objFile.Name
    strFileName = Right(strFileName,Len(strFileName)-Len(objFile.Drive & objFile.Path))

    strFileName = Right(strFileName,Len(strFileName)-4)

    strFileName = Left(strFileName,Len(strFileName)-4)

    strNewName = objFile.Drive & objFile.Path & strFileName & ".sql"
    errResult = objFile.Rename(strNewName)
Next

只要根据实际情况将里面的目录改掉就OK了～～