Need to delete folder over 2 days old and starts with F
Need to delete folder over 2 days old and starts with F
(OP)
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.
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.
RE: Need to delete folder over 2 days old and starts with F
http://msd
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