Output Stored Procedures as text problem

[lauren quantrell]

I'm using the function below to output all of my stored procedures into

a text file. Fice, except that the output file does not reflect the
names of the stored procedures correctly if the name has been changed.
For example, I create a stored procedure named: "sp123" and then rename

it to "sp123DELETE" or "sp123 DELETE" or "sp123OLD" or "sp123 OLD" and
what I end up with is four entries in the output file all having the
stored procedure name "sp123."
I stop the service and restart before outputting the file.
Any help is appreciated.
lq
Function ExportSP(myPath As String)
Dim objSQLServer As New SQLDMO.SQLServer
Dim dbs As New SQLDMO.Database
Dim sp As SQLDMO.StoredProcedure
Dim sptext As String
objSQLServer.Connect <Servername>, <Username>, <Password>
Set dbs = objSQLServer.Databases(<databasename>)
Open myPath For Output As #1
For Each sp In dbs.StoredProcedures
sptext = sp.Text
Print #1, sptext & _
vbCrLf & vbCrLf & vbCrLf & _
"*******" & _
vbCrLf & vbCrLf & vbCrLf
Next
End Function

[Gord]

Hi, Lauren.

Try checking

sp.Properties("IsDeleted")

before dumping the text.
HTH,
Gord
p.s. Nice work on SmartTree!

[lauren quantrell]

Thanks for the thanks on SmartTree!