Need to delete folder over 2 days old and starts with F

Question

Need to delete folder over 2 days old and starts with F

aclepore (MIS)

(OP)

15 May 08 16:52

Thanks in advance for the help.  I have a script that will delete folders over 2 days old.  I just don't know how to tweak it to only delete folders over 2 days which start with the letter "f".

Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSys.GetFolder("d:\test")
For Each Folder In objFolder.SubFolders
FolderCreated = Folder.DateCreated
FolderAge = DateDiff("d", FolderCreated, Now)
     If FolderAge > 2 Then
         Folder.Delete
     End If
Next

Please help this noob out.
Thanks.

Craig0201 (TechnicalUser) · Answer 1 · 2008-05-16 05:54:55

Google on FileSystemObject Folder Name would have retrieved....

http://msdn.microsoft.com/en-us/library/2z9ffy99(VS.85).aspx

Which would have told you that the folder name property is.....and this may seem bizarre.....called Name.

Hence

Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSys.GetFolder("d:\test")

For Each Folder In objFolder.SubFolders
    FolderCreated = Folder.DateCreated
    FolderAge = DateDiff("d", FolderCreated, Now)

    If FolderAge > 2 And Left(Folder.Name,1) = "F" Then
        Folder.Delete
    End If
Next

C

Come Join Us!

Posting Guidelines

Need to delete folder over 2 days old and starts with F