List databases and file in SQL Server 2000

set nocount on
declare @db as nvarchar(50)
declare @sql as nvarchar(200)
declare cdb cursor for select name from master..sysdatabases
open cdb
while (1=1)
begin
   fetch cdb into @db
   if @@FETCH_STATUS != 0
      break

   print ‘Database: ‘ + @db
   set @sql = N’select left(name, 30) name,

                       left(filename, 60) filename,

                       (size*8/1024) as MB

                  from ‘ + rtrim(@db) + ‘..sysfiles’
   execute sp_executesql @sql

end
close cdb
deallocate cdb

—
—