Delete filesif more than 5 files exist in Directory 1

[beefstew]

Hi

I need to create a script that will delete all files within a directory only if more than say 5 files exist

Any ideas please?

Many thanks
Beef

 

[MakeItSo]

Where exactly are you stuck?

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[beefstew]

I have a script that will delete all files in a directory but I only want it to run if there are more than 5 files in the directory

psuedo if exist more than 5 files


' ################################################################
' # 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 = "c:\CAP"
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

 

[MakeItSo]

psuedo if exist more than 5 files

Non-pseudo looks like this:
If f.Files.Count > 5 Then



Cheers,
MakeItSo

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[beefstew]

Could you please let me know whereabouts in the script this would have to sit

Thanks

 

[MakeItSo]

Set f = fso.GetFolder(strDir)
Set fc = f.Files
[b]If f.Files.Count > 5 Then[/b]
  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
[b]End If[/b]

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[beefstew]

Thanks for that

One last thing if you may; if I wanted to do this for folders instead of files what would need to be changed?

Thanks

 

[MakeItSo]

If you wanted to delete the entire folder, I'd move the count check a little upward:

Set f = fso.GetFolder(strDir)
If f.Files.Count > 5 Then
  f.Delete True
'alternatively: fso.deletefolder f.Path
Else
  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
End If

That what you need?

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[beefstew]

Sorry but no that just deleted a load of files. Thanks heavens that wasn't live. lol

What I would like it to do is look in a directory and delete all sub folders over 7 days old, but only if there are more than 5 sub folders in total

Basically to stop backups taking up all space but at the same time ensuring all backup files will not be deleted if the backup does not run for a few Days for some reason

Each backup creates its own folder

Thanks

 

[Geates]

What if a subfolderX has a subfolderY with more than 5 files. Which subfolder should be deleted?

folder
- subfolderX
- subfolderY
- fileY1
...
- fileY100
- fileX1
- fileX2


-Geates

http://raqxtr.sstar.com/caspdoc/html/vbscript_language_reference.htm

 

[beefstew]

/root/folder1
/root/folder2
/root/folder3
/root/folder4

So I would like to monitor Root. If folder 123 and 4 are older than 7 Days delete folders 123 and 4 but only if there are 5 folders. In this case no folders would be deleted because there are only 4 folders

 

[beefstew]

I'm interested in folders and not the files within them as the Cognos application creates a folders structure for each backup

 

[MakeItSo]

delete all sub folders over 7 days old, but only if there are more than 5 sub folders in total

That is why it's always a good choice to be precise rather than vague when asking for help.

Set f = fso.GetFolder(strDir)
  Set fc = f.Files
  For Each f1 in fc
    If DateDiff("d", f1.DateCreated, Date) > strDays[b][COLOR=#CC0000] And f.Files.Count > 5[/color][/b] Then
      'strComments = strComments & f1.name & " " & f1.DateCreated & vbCrLf
      [b][COLOR=#CC0000]fso.DeleteFolder(f.Path)
      Exit For[/color][/b]
    End If
  Next

That closer to what you need?
;-)

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[beefstew]

I want to delete going by the created date of the actual folder

 

[beefstew]

I'll try it thanks

 

[MakeItSo]

Wait, wait!!

more than 5 sub folders in total

only want it to run if there are more than 5 files in the directory

Now WHAT exactly are the criteria?

Scenario:
folder/subfolder/[n]subfolders with n files each

do you wish to delete this folder:
folder/subfolder(older than date)/[>5]subfolders
??

Please state precisely what you have and what exactly you wish to delete at what level.
And make sure not to mix up "file" with "folder"

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[PHV]

You wanted something like this ?

Set f = fso.GetFolder(strDir)
Set fc = f.SubFolders
If fc.Count > 5 Then
  For Each f1 in fc
    If DateDiff("d", f1.DateCreated, Date) > strDays Then fl.Delete
  Next
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[beefstew]

This is what I have but it doesn't seem to work:

' ################################################################
' # cleanup-folder.vbs
' #
' # Removes all files older than 1 week only if more
' # than 4 files present in directory
' ################################################################

Dim fso, f, f1, fc, strComments, strScanDir

' user variables
' ----------------------------------------------------------------

strDir = "c:\test"
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 And f.Files.Count > 5 Then
'strComments = strComments & f1.name & " " & f1.DateCreated & vbCrLf
fso.DeleteFolder(f.Path)
Exit For
End If
Next

'wscript.echo strComments

WScript.Quit
' eof

 

[beefstew]

there are 6 folders in the test Directory and all folders and the created date is Month's old

 

[MakeItSo]

This is what I have but it doesn't seem to work:

Again: Please state precisely what you have and what exactly you wish to delete at what level under which criteria.

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.