Delete Files in Shared Location/SAN

if object_id('DeleteOldFiles','P') is not null
	drop procedure DeleteOldFiles;
go

create procedure DeleteOldFiles
(
	@path			varchar(2000),
	@days			int
)
as
begin

	set nocount on

	declare @dircommand		varchar(2000),
			@FileName		varchar(1000),
			@count			int

	if object_id('tempdb..#FullFileList','U') is not null
		drop table #FullFileList;
		
	create table #FullFileList
	( 
		FileNames	varchar(1000),
		CreatedDate varchar(20)
	)

	if object_id('tempdb..#FilesToDelete','U') is not null
		drop table #FilesToDelete;
	create table #FilesToDelete
	(
		Id	int	identity(1,1),
		FileNames	varchar(1000)
	)


	select @dircommand = 'dir '
						+ @path 
						+ ' /b '
	insert into #FullFileList (fileNames)
	exec xp_cmdshell @dircommand


	update	#FullFileList
	set		createdDate = left(substring(filenames , (charindex('.',filenames)-14) ,charindex('.',filenames)),8)


	insert into #FilesToDelete
			(
				FileNames
			)
	select	FileNames
	from	#FullFileList
	where	datediff(dd,getdate(),convert(datetime,createdDate,102))< @days
	and		FileNames is not null

	select	@count = count(1) 
	from	#FilesToDelete

	while(@count >= 1)
	begin
		
		select @FileName = FileNames
		from	#FilesToDelete
		where	Id = @count
		
		select	@dircommand = 'del '
							+ @path 
							+ @FileName
		
		exec master..xp_cmdshell @dircommand
		
		select @count = @count -1 
	end
end;