Script help

[Frankthetank1]

I need help creating a script for my work. Right now I have this script called move scan files.bat and I have it schedled to work at 5 pm every day.* Here is the script
*
@echo off
copy "Y:\Scanned\*.*" "Y:\scanned1\"
End
*
I want to create a new script that will delete files that are older then 7 days in that folder called scanned1.

[anon]

http://stackoverflow.com/questions/51054/batch-file-to-delete-files-older-than-n-days

[Frankthetank1]

I tried it with and with out the first and last lines still get a windows compilation error. Just save it as a VBS file and run it to see if it works right? I guess, I don’t get run this in command prompt…. How?
*
'copy from here
*** Function DeleteOlderFiles(Y:\Old Scanned Doc's)
****** Dim fso, f, f1, fc, n, ThresholdDate
****** Set fso = CreateObject("Scripting.FileSystemObject")
****** Set f = fso.GetFolder(Y:\Old Scanned Doc's)
****** Set fc = f.Files
****** Set objArgs = WScript.Arguments
****** n = 0
****** If objArgs.Count=0 Then
********** howmuchdaysinpast = 0
****** Else
********** howmuchdaysinpast = -objArgs(0)
****** End If
****** ThresholdDate = DateAdd("d", howmuchdaysinpast, Date)**
****** For Each f1 in fc
**** If f1.DateLastModified<ThresholdDate Then
******* Wscript.StdOut.WriteLine f1
******* f1.Delete
******* n = n + 1***
**** End If
****** Next
****** Wscript.StdOut.WriteLine "Deleted " & n & " file(s)."
*** End Function
*
*** If Not WScript.FullName = WScript.Path & "\cscript.exe" Then
***** WScript.Echo "USAGE ONLY IN COMMAND PROMPT: cscript DelOldFiles.vbs 15" & vbCrLf & "15 means to delete files older than 15 days in past."
***** WScript.Quit 0**
*** End If
*
*** DeleteOlderFiles(".")
'to here
*

[tesco]

First of all, might be stupid of me to say, but don't copy the "'copy from here" or the "'to here".
Second, when he says "USAGE ONLY IN COMMAND PROMPT: cscript DelOldFiles.vbs 15", do it like this:
start -> run -> type "CMD" -> click OK -> then type "cscript DelOldFiles.vbs 15".
You might need to add the path to the file to that line.

edit: Just noticed you buggered up the code, here use this:



Function DeleteOlderFiles(whichfolder)
Dim fso, f, f1, fc, n, ThresholdDate
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(whichfolder)
Set fc = f.Files
Set objArgs = WScript.Arguments
n = 0
If objArgs.Count=0 Then
howmuchdaysinpast = 0
Else
howmuchdaysinpast = -objArgs(0)
End If
ThresholdDate = DateAdd("d", howmuchdaysinpast, Date)
For Each f1 in fc
If f1.DateLastModified<ThresholdDate Then
Wscript.StdOut.WriteLine f1
f1.Delete
n = n + 1
End If
Next
Wscript.StdOut.WriteLine "Deleted " & n & " file(s)."
End Function

If Not WScript.FullName = WScript.Path & "\cscript.exe" Then
WScript.Echo "USAGE ONLY IN COMMAND PROMPT: cscript DelOldFiles.vbs 15" & vbCrLf & "15 means to delete files older than 15 days in past."
WScript.Quit 0
End If

DeleteOlderFiles(".")
Edit the very LAST line that says "DeleteOlderFiles(".")", replace the dot(.) with the folder name.

[Frankthetank1]

yeah i am a noob when it comes to scripts :( I will try this Tuesday.

If this works i might try a script to do my timesheet at work so i wont even have to show up :)

[Glaucon]

If you'd like I can patch you something up in C, although it might be overkill since this can easily be achieved with batch.

[Frankthetank1]

it works well but i need to figure out how to run it in a scheduled task. i think i can figure it out though...I just need to put cscript in front of the name of the vbscript and save in a cmd file

[anon]

The association for VBS files in the registry should look like this:

"%SystemRoot%\System32\WScript.exe" "%1" %*

Just replace %1 with the full path to your file (keep the quotes) and use that.

[Glaucon]

it works well but i need to figure out how to run it in a scheduled task. i think i can figure it out though...I just need to put cscript in front of the name of the vbscript and save in a cmd file

If you are on Windows then try running taskschd.msc and setting it up there.