VBScript to delete files within a certain time

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

VBScript to delete files within a certain time

Logged in as: Guest

arrSession:exec spGetSession 2,2,1200

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> VBScript to delete files within a certain time
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

VBScript to delete files within a certain time - 7/30/2004 8:45:06 AM

supaben34

Posts: 1
Score: 0
Joined: 7/30/2004
From: USA
Status: offline

I started designing a script long ago that was supposed to help me create all filenames within a specific directory. My code works on deleting files on my hard drive just fine but when I try to delete files off of a removable disk such as a zip disk, it simply refuses to function. Please let me know what is wrong with my code Thank you.

' Programmer: Bensan George Benny
' Date Created: 02-17-2004
' Program Description: This file deletes backup files from PremiumSoft Navicat that are older than 30 days.
' Date Modified: 02-22-2004
'	1) Added comments for easier readability
'	2) initiated functions and researched algorithm
'	3) implemented DoDir function

Option Explicit
Dim FSO, WshShell, Then_Date, WSHShellENV, TempFolder, Recycled	' creating variables needed for main program(local scope)
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")	' creating a new object to gain access to a computer's file system
Set WshShell = WScript.CreateObject("WScript.Shell")	' creates an object in type specified
Set WSHShellENV = WSHShell.Environment("PROCESS")
'set TempFolder = FSO.GetFolder(WSHShellENV("TEMP"))	' creates a Folder object to the path you specify
'ClearFolder TempFolder
'Set Recycled = FSO.GetFolder("C:\test")		' creates a Folder object to the path you specify and name it
'ClearFolder Recycled
DoDir FSO.GetFolder("E:\Database_Backups")
Then_Date = DateAdd("d", -1, Date)

WScript.Echo "Cleaned Databases on " & Now & ". " & " Erased Files older than " & Then_Date

Sub DoDir(Folder)
Dim i, File, SubFolder, fstr, pos, last_mod		' creating variables needed for function
Dim Now_Date, Then_Date				' creates the variable used for today's date
Now_Date = Date					' loads today's date into variable Now_Date
Then_Date = DateAdd("d",-10, Now_Date)		' subtracts ten days from the current date

WScript.Echo(Then_Date)				' TEST FOR THEN DATE
'WScript.Echo(Now_Date)				' TEST FOR TODAY'S DATE

Dim Findstr(0)					' creates an array named Findstr with array element one
Findstr(0) = ".PMB"					' loads into array element 0, the .pmb file extension
For Each File In Folder.Files			' For each file in folder.files
FStr = UCase(File.Path)
Pos = 0
for i = 0 to 0					' NOTE: CHANGE THIS ACCORDING TO THE # OF ELEMENTS IN ARRAY Findstr[]
if ((instr(FStr, Findstr(i)) > 0) And (File.DateLastModified <= Then_Date)) then
' check whether there exists a string inside FStr
' which has an extension of any of the elements of FindStr
WScript.Echo(FStr)				' echoes file string
File.delete					' if there is, simply delete it
Exit For
End if
Next
Next
For Each SubFolder in Folder.SubFolders
DoDir SubFolder
Next
End Sub

Sub ClearFolder(Folder)
Dim File, SubFolder
For each file in Folder.Files
File.delete(True)
next
For Each SubFolder in Folder.SubFolders
SubFolder.Delete(True)
Next
End Sub

Post #: 1

Re: VBScript to delete files within a certain time - 9/10/2004 6:24:37 AM

cliff2_2

Posts: 1
Score: 0
Joined: 9/10/2004
From: USA
Status: offline

I changed this dramatically to do a delete by date only. The purpose of this was to clear old log files off of a mail server. Its short and sweet and works. I have seen alot of posts asking for how this is to be done. This can be easily modified with IF or Case statements to exclude certian file extensions.

' Program Description: This file deletes files from specified directory and all subdirectories under it that are older than 10 days.

Option Explicit
Dim FSO, WshShell, Then_Date, WSHShellENV, TempFolder, Recycled
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject") ' creating a new object to a computer's file system
Set WshShell = WScript.CreateObject("WScript.Shell") ' creates an object in type specified
Set WSHShellENV = WSHShell.Environment("PROCESS")
set TempFolder = FSO.GetFolder(WSHShellENV("TEMP")) ' creates a Folder object to the path you specify
Set Recycled = FSO.GetFolder("C:\test") ' creates a Folder object to the path youspecify and name it
DoDir FSO.GetFolder("C:\deleting") 'set starting directory A MUST
Then_Date = DateAdd("d", -10, Date)

Sub DoDir(Folder)
Dim i, File, SubFolder, fstr, pos, last_mod ' creating variables needed for function
Dim Now_Date, Then_Date ' creates the variable used for today's date
Now_Date = Date ' loads today's date into variable Now_Date
Then_Date = DateAdd("d",-10, Now_Date) ' subtracts ten days from the current date

' WScript.Echo(Then_Date) ' TEST FOR THEN DATE
' WScript.Echo(Now_Date) ' TEST FOR TODAY'S DATE
' WScript.Echo(Folder) ' TEST FOR CORRECT FOLDER

For Each File In Folder.Files ' For each file in folder.files
if ((File.DateLastModified <= Then_Date)) then ' check whether the file IS
' older than keep date
File.delete ' if older than keep date, simply delete it
End if
Next
For Each SubFolder in Folder.SubFolders
DoDir SubFolder
Next
End Sub

(in reply to supaben34)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> VBScript to delete files within a certain time

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts