[Delphi or BATCH] Deleting alot of files in dirs

[ShadowPHP]

I need to make a script to delete temporary files in alot of users profiles.

The directory structure is like this:

C:/Users/username1/TempFiles/

C:/Users/username2/TempFiles/

C:/Users/username3/TempFiles/

C:/Users/username4/TempFiles/

I need a script that will automatically go through all the users directories and delete all the contents from TempFiles.

It can be done in either a BATCH file or in Delphi.

Thank-you to anyone that can help me.

[ninjamunky]

How many usernames are we talking about here?

[bgbennyboy]

Try something like this:

procedure GetDirs(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      begin
        if sr.Attr and faDirectory = faDirectory then
          filelist.Add(sr.name)
        else

      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure GetFiles(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      begin
        if sr.Attr and faDirectory = faDirectory then
        else
        if sr.Attr and faSysFile = faSysFile then
        else
        begin
          filelist.Add(sr.Name);
        end;
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure ParseAndDelete;
var
  DirList, FileList: TStringList;
  i, j: integer;
  RootDir, TempDir: string;
begin
  RootDir:='c:\users\';
  TempDir:='\tempfiles\';

  DirList:=TstringList.Create;
  FileList:=TstringList.Create;
  try
    GetDirs(RootDir, DirList);
    if DirList.Count=0 then
    begin
      showmessage('No profile directories found!');
      exit;
    end;

    for i:=0 to DirList.Count - 1 do
    begin
      if directoryexists(RootDir + '\' + DirList[i] + '\' + TempDir) then
      begin
        FileList.Clear;
        GetFiles(RootDir + '\' + DirList[i] + '\' + TempDir, FileList);
        if FileList.Count=0 then continue;
        for j:=0 to FileList.Count - 1 do
          deletefile(RootDir + '\' + DirList[i] + '\' + TempDir + FileList[j]);
      end;

    end;

  finally
    DirList.Free;
    FileList.Free;
  end;
end;

Change rootdir and tempdir var's to whatever your actual path is. The code looks through all the directories inside rootdir, sees if tempdir exists inside those and if it does deletes all the files inside tempdir. This is just off the top of my head but it should work :)

Edited November 3, 2005 by bgbennyboy

[kjordan2001]

This may need some work, but:

del /S /Q C:\Users\*\TempFiles\*