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

[aclepore]

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]

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