windows script to delete files older than 1 week

[GoNz0]

I have setup a FTP for a customer on one of my games server, i am using robocopy to move the files over the network to the ftp folder once a day, i use the MOVe command to delete the source files once they hit the destination.

he can then ftp in and grab what he wants.

now customers are lazy and i doubt he will delete them before the folder size gets to 10's of GB's big so i am after a script i can run via the task schedule to delete anything older than 1 week.

anyone got anything semi idiot proof for me ?

[Jay]

If no one replies by morning i'll knock you up a vbscript to do it.

[GoNz0]

thanks, i found one but it needed manual input each time, i just dont know anything about them to edit it to suit

[Splash]

yoinked from Google because I'm lazy too

‘ ################################################################
‘ # cleanup-folder.vbs
‘ #
‘ # Removes all files older than 1 week
‘ # Authored by Spencer Kuziw (s.kuziw-at-epic.ca)
‘ # Based on code by YellowShoe
‘ # Version 1.0 - Sept 23 2008
‘ ################################################################
 
Dim fso, f, f1, fc, strComments, strScanDir
 
‘ user variables
‘ —————————————————————-
 
strDir = “FULL\PATH\TO\FOLDER\TO\BE\CLEANED”
strDays = 7
 
‘ DO NOT EDIT BELOW THIS LINE
‘ (unless you know what you are doing)
‘——————————————————————
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(strDir)
Set fc = f.Files
For Each f1 in fc
      If DateDiff("d", f1.DateCreated, Date)> strDays Then
            ‘strComments = strComments & f1.name & ” “ & f1.DateCreated & vbCrLf
            fso.DeleteFile(f1)
      End If
Next
 
‘wscript.echo strComments
WScript.Quit
‘ eof

Set strDir and strDays to whatever you need, job's a good'un.

EDIT - save file as a .vbs file.

[GoNz0]

sweet, just what i need thanks

[Jay]

thats a pretty decent little script that one.

[Splash]

I should be clear - I didn't write it. As I say, I like to be lazy wherever possible so a quick Google and then run through the script does me fine. In this case I didn't even have to tweak!

[GoNz0]

it wont work

just gives an error saying

line1
char1
error invalid character
code 800a0408
ms vbscript comp error

[mikerr]

Has that script been edited for display on a webpage at some point?
It has HTML encoding in it.

I'm sure those & should be &
And the > should be >

[mark19632]

You can use this in Powershell:

$FolderPath = "Folder path"
$Date = get-date
$Datetodelete = $date.adddays(-7)
get-childitem -Path $FolderPath | where {$_.CreationTIme -le $Datetodelete} | Remove-item

[barry2811]

Has that script been edited for display on a webpage at some point?
It has HTML encoding in it.

I'm sure those & should be &
And the > should be >

You'd be right, but that line is commented out and is only enabled for debugging purposes by the looks of it.

[barry2811]

it wont work

just gives an error saying

line1
char1
error invalid character
code 800a0408
ms vbscript comp error

Complete guess here, but try changing the ` to a '. Looks like the comment character got changed on a webpage transition somewhere?

[GoNz0]

You can use this in Powershell:

$FolderPath = "Folder path"
$Date = get-date
$Datetodelete = $date.adddays(-7)
get-childitem -Path $FolderPath | where {$_.CreationTIme -le $Datetodelete} | Remove-item

what do i do stick it in a bat file with powershell to start ?

i am not to clever with these things

[barry2811]

Oh, and change this line;

If DateDiff("d", f1.DateCreated, Date)> strDays Then

to this;

If DateDiff("d", f1.DateCreated, Date) > strDays Then

Was picked up above by mikerr, but I didn't see this line when I referred to the commented line.

[mark19632]

what do i do stick it in a bat file with powershell to start ?

i am not to clever with these things

1) Save the powershell code in a text file with a .ps1 extention
2) In he Batch file use call C:\WINDOWS\system32\windowspowershell\v1.0\powershell.exe "path to script"

You'll need to install powershell on your system if you haven't already, you can download it here:
http://support.microsoft.com/kb/968930

I use powershell for almost all my windows scripting now, much less complicated than VB

[GoNz0]

thanks, will let you know in a week if files start to vanish