set rowcount 1
go
DECLARE CustObject_Cursor CURSOR
KEYSET
FOR
select name,rtrim(LTRIM(Type)) from sysobjects where xtype<>'S'
DECLARE @ObjectName nvarchar(max)
DECLARE @Type nvarchar(50)
OPEN CustObject_Cursor
FETCH NEXT FROM CustObject_Cursor INTO @ObjectName ,@Type
WHILE (@@fetch_status <> -1)
BEGIN
IF (@@fetch_status <> -2)
BEGIN
select top 1 text from syscomments where id=OBJECT_ID(@ObjectName)
declare @cmd varchar(8000)
declare @path nvarchar(500)
set @path = 'G:\me_doc\'+DB_NAME()+'\'+@Type+'\'
declare @cmdCreateDir varchar(500)
set @cmdCreateDir='if not exist '+@path+' md '+@path+''
set @cmd = 'bcp "select top 1 text from '+DB_NAME()+'.sys.syscomments where id='+cast(OBJECT_ID(@ObjectName)as nvarchar)+' " queryout '+@path+@ObjectName+'.sql -c -T'
print @cmd
exec master.dbo.xp_cmdShell @cmdCreateDir
exec master.dbo.xp_cmdShell @cmd
END
FETCH NEXT FROM CustObject_Cursor INTO @ObjectName ,@Type
END
CLOSE CustObject_Cursor
DEALLOCATE CustObject_Cursor