How do I remove archived files

[Tison]

Does anyone have a batch script that I can run daily to remove files that do NOT have the archive bit set ?

 

[gpalmer711]

In a specific folder or system wide?

The coding differences between the two would be substancial.

Greg Palmer
Free Software for Adminstrators

http://www.palmersoft.co.uk

 

[Tison]

It is for a specific folder and a specific group of files
eg: del C:/data/archive/ARCH* where archive = " "

 

[gpalmer711]

Open Notepad
Copy the Code below into notepad
Save the file as archive.vbs (or any other name, so long as it ends in .vbs)

Dim FSO, readfile
Set FSO = CreateObject("Scripting.FileSystemObject")
DoDir FSO.GetFolder(".")
Sub DoDir(Folder)
   On Error Resume Next
   Dim File, SubFolder
   For Each File In Folder.Files
      	set readfile = fso.GetFile(File)
	If NOT readfile.Attributes And 32 Then 
	readfile.delete
	End If
   Next
   For Each SubFolder in Folder.SubFolders
      DoDir SubFolder
   Next
End Sub

Place this file in your required folder and double click it.
This will delete all files in the directory that do not have the archive attribute set, it will also look in sub folders.

If you do not want it to look in sub folders then remove the following code.

   For Each SubFolder in Folder.SubFolders
      DoDir SubFolder
   Next

Hope this helps, if not let me know

Greg Palmer
Free Software for Adminstrators

http://www.palmersoft.co.uk