VB Scrript to delete old files and subfolders

[MikeTaylor]

Hello

[Salmon Trout]

I am only assuming Mike is Bill

I think that is is a pretty safe asumption; "Mike" replicates "Bill"'s posting style to the letter. See his recent posts.

[gh0std0g74]

yuup bill is back. CAN SOMEONE PLEASE BAN HIM?! he is really annoying me and disrupting all topics hes been in

he can just come in as another nick and do this stuff all over.

[BatchFileBasics]

Hey ike, How many members here do not like you?.
you are up to about 15. including most high authority members. and the whole MS-Dos section.

you doubt i can learn anything? i doubt anyone actually wants you here.

[MikeTaylor]

See his recent posts.

Get a clue.

Bill Richardson's  name is at bottom of each post.

[gh0std0g74]

i doubt anyone actually wants you here.

not me, i actually enjoy browsing the forum when he's here.

[menaha]

Please check both conditions that before date as well as whether it is empty or not. if it is empty meeans, just delete it. Please do it in the below coding


If file.DateLastModified < BeforeDate and folder== null Then
fso.DeleteFile(file.Path)




please try to  do.





Dim fso, startFolder, OlderThanDate

Set fso = CreateObject("Scripting.FileSystemObject"
startFolder = "c:\test"
OlderThanDate = DateAdd("d", -30, Date) ' 30 days

DeleteOldFiles startFolder, OlderThanDate

Function DeleteOldFiles(folderName, BeforeDate)
Dim folder, file, fileCollection, folderCollection, subFolder

Set folder = fso.GetFolder(folderName)
Set fileCollection = folder.Files
For Each file In fileCollection
If file.DateLastModified < BeforeDate Then
fso.DeleteFile(file.Path)
End If
Next

Set folderCollection = folder.SubFolders
For Each subFolder In folderCollection
DeleteOldFiles subFolder.Path, BeforeDate
Next
End Function

Function DeleteOldfolder(foldername, BeforeDate)

Set folderlist = fso.GetFolder(foldername)
Set folderCollection = Folderlist.SubFolders
For Each Folder In folderCollection
If folder.DateLastModified <  BeforeDate Then
fso.DeleteFolder(folder.Path)
End If
Next
End Function

[Sidewinder]

Both conditions are checked, which is the purpose of the nested if.

Code: [Select]

Set f = fso.GetFolder(folderName)
Set fc = f.Files
If fc.Count = 0 Then
   If f.DateLastModified < BeforeDate Then
     fso.DeleteFolder foldername, True
        End If
End If

This function is unnecessary, there is not even a reference to it in the main script:

Code: [Select]

Function DeleteOldfolder(foldername, BeforeDate)

Set folderlist = fso.GetFolder(foldername)
Set folderCollection = Folderlist.SubFolders
For Each Folder In folderCollection
If folder.DateLastModified <  BeforeDate Then
fso.DeleteFolder(folder.Path)
End If
Next
End Function

Sheesh!