Solved

Need a script

Posted on 2011-09-21
9
190 Views
Last Modified: 2012-05-12
Hi,

I need a script to identify what are the folders that are 7 days old in a particular path and to delete those folders automatically. The script should look only for folders and not for files. Thanks
0
Comment
Question by:jmohan0302
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 2
9 Comments
 
LVL 4

Expert Comment

by:Gavincr001
ID: 36576377
Have you looked at the Forfiles command, it can find files or folders of a certain age:

This example, removes directories older than 20 days in c:\temp.

 forfiles /p "c:\temp" /c "cmd /c if @isdir==TRUE RMDIR /S /Q @path" /d -20
0
 
LVL 4

Expert Comment

by:Gavincr001
ID: 36576385
... sorry only saw now you asking about vb
0
 

Author Comment

by:jmohan0302
ID: 36577971
Not a problem I need any thing that fulfills my work. Even a command or a script any thing
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 55

Expert Comment

by:Bill Prew
ID: 36578011
This should be close, adjust the constants at the top as needed.  Right now the actual delete is commented out, and it will just display the folders it thinks should be deleted.  This is for testing, if it works right uncomment out the delete.  Also, it is checking the date the folder was created currently, not last modified, since you didn't specify I wasn't sure so started with this.

Const conBaseDir = "C:\EE\Temp"
Const conDelAge = 7

' Create file system object
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

' Call recursive routine to clean out old folders
CleanFolder objFSO.GetFolder(conBaseDir), conDelAge

' Release file system object
Set objFSO = Nothing


' Recursive subroutine to remove old subfolders
Sub CleanFolder(objFolder, intAge)

   ' See if this folders subfolders are old enough to delete.
   For Each objSubFolder In objFolder.SubFolders
      If DateDiff("d", objSubFolder.DateCreated, Now) >= intAge Then
         ' objSubFolder.Delete
         Wscript.Echo "Deleted Folder: [" & objSubFolder.Path & "], Age: [" & DateDiff("d", objSubFolder.DateCreated, Now) & "]"
      Else
         CleanFolder objSubFolder, intAge
      End If
   Next

End Sub

Open in new window

~bp
0
 

Author Comment

by:jmohan0302
ID: 36578196
Hi Billprew, Thanks for your reply. Yet I didnt check. I will check and let you know the output. I just want to know that it has to delete all the folders that is 7 days old. Thanks again
0
 

Author Comment

by:jmohan0302
ID: 36582303
Hi Gavincr001,

Please let me know from where you got these kind of commands. I just want to create these kinds of commands on own.  Any help from your end will be greatfull. Thanks
0
 
LVL 55

Expert Comment

by:Bill Prew
ID: 36584254
ForFiles is an add on utility for Windows from Microsoft.  It was released in some of the Resource Kits and now is also part of Windows 7.  Further info can be found at:

http://technet.microsoft.com/en-us/library/cc753551%28WS.10%29.aspx

http://www.petri.co.il/download_free_reskit_tools.htm

~bp
0
 

Author Comment

by:jmohan0302
ID: 36690001
Hi All,

The below forfiles command is working fine in Win7,WIn2003 and WIn2008:

forfiles /p "e:\shilpa" /c "cmd /c if @isdir==TRUE RMDIR /S /Q @path" /d -20

But it is not working in win2000.

Need help to use the forfiles command in 2000 to delete the folders in a path which is 7 days old.

Thanks
0
 
LVL 4

Accepted Solution

by:
Gavincr001 earned 500 total points
ID: 36712966
You can try copy the forfiles.exe from Win7 or server 2008 to your Win2000 PC.

Or setup the scheduled task from a Win7 PC to delete the files on a mapped drive/UNC path to the Win2000 server.

0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …

691 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question