Delete folders

I am asking some help with a script.

Delete the GTA folders olders then Yesterday, the folders begins with GTA.
The folders GTA for today and Yesterday must not deleted.

I have a beginning but this is not correct, can anybody help me.


Sfolderdir = "c:\temp\GTA2345"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sfolderdir)

Wscript.Echo "Date created: " & objFolder.DateCreated

If objFSO.FolderExists(Sfolderdir) Then
objFSO.DeleteFolder(Sfolderdir & datupdatefolder)
WScript.Echo Sfolderdir & " DELETED "
Else
WScript.Echo "Not DELETE."
End If



rob

Todd
Thu Apr 24 22:27:45 CDT 2008

Rob wrote:
>
> I am asking some help with a script.
>
> Delete the GTA folders olders then Yesterday, the folders begins with GTA.
> The folders GTA for today and Yesterday must not deleted.
>
> I have a beginning but this is not correct, can anybody help me.
>
>
> Sfolderdir = "c:\temp\GTA2345"
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFSO.GetFolder(sfolderdir)
>
> Wscript.Echo "Date created: " & objFolder.DateCreated
>
> If objFSO.FolderExists(Sfolderdir) Then
> objFSO.DeleteFolder(Sfolderdir & datupdatefolder)
> WScript.Echo Sfolderdir & " DELETED "
> Else
> WScript.Echo "Not DELETE."
> End If

This will delete "c:\temp\GTA2345" if older than 2 days

Sfolderdir = "c:\temp\GTA2345"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(Sfolderdir) Then
Set objFolder = objFSO.GetFolder(sfolderdir)
Wscript.Echo "Date created: " & objFolder.DateCreated
If Now() - objFolder.DateCreated > 2 Then
objFSO.DeleteFolder(Sfolderdir)
WScript.Echo Sfolderdir & " DELETED"
Else
WScript.Echo Sfolderdir & " NOT DELETED"
End If
Else
WScript.Echo Sfolderdir & " does not exist."
End If

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

floyd
Fri Apr 25 11:09:05 CDT 2008

Ok one file is ok but i have more folders that begins with GTA.001
GTA.002 etc.



"Todd Vargo" <tlvargo@sbcglobal.netz> schreef in bericht
news:%23ThA4SopIHA.5096@TK2MSFTNGP02.phx.gbl...
> Rob wrote:
>>
>> I am asking some help with a script.
>>
>> Delete the GTA folders olders then Yesterday, the folders begins with
>> GTA.
>> The folders GTA for today and Yesterday must not deleted.
>>
>> I have a beginning but this is not correct, can anybody help me.
>>
>>
>> Sfolderdir = "c:\temp\GTA2345"
>> Set objFSO = CreateObject("Scripting.FileSystemObject")
>> Set objFolder = objFSO.GetFolder(sfolderdir)
>>
>> Wscript.Echo "Date created: " & objFolder.DateCreated
>>
>> If objFSO.FolderExists(Sfolderdir) Then
>> objFSO.DeleteFolder(Sfolderdir & datupdatefolder)
>> WScript.Echo Sfolderdir & " DELETED "
>> Else
>> WScript.Echo "Not DELETE."
>> End If
>
> This will delete "c:\temp\GTA2345" if older than 2 days
>
> Sfolderdir = "c:\temp\GTA2345"
> Set objFSO = CreateObject("Scripting.FileSystemObject")
>
> If objFSO.FolderExists(Sfolderdir) Then
> Set objFolder = objFSO.GetFolder(sfolderdir)
> Wscript.Echo "Date created: " & objFolder.DateCreated
> If Now() - objFolder.DateCreated > 2 Then
> objFSO.DeleteFolder(Sfolderdir)
> WScript.Echo Sfolderdir & " DELETED"
> Else
> WScript.Echo Sfolderdir & " NOT DELETED"
> End If
> Else
> WScript.Echo Sfolderdir & " does not exist."
> End If
>
> --
> Todd Vargo
> (Post questions to group only. Remove "z" to email personal messages)
>

Todd
Fri Apr 25 17:33:07 CDT 2008

floyd <w> wrote:
> Ok one file is ok but i have more folders that begins with GTA.001
> GTA.002 etc.

(Somehow I expected this response)

So is Sfolderdir to be the root folder then? Or was "C:\temp" the root?
Never
mind, I'll decide for you. Sfolderdir is the root folder you want to delete
folders from.

Sfolderdir = "c:\temp"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(Sfolderdir) Then
Set objFolder = objFSO.GetFolder(Sfolderdir)
For Each folder In objFolder.SubFolders
If Now() - folder.DateCreated > 2 Then
WScript.Echo folder.name & " DELETED"
objFSO.DeleteFolder(folder)
Else
WScript.Echo folder.name & " NOT DELETED"
End If
Next
Else
WScript.Echo Sfolderdir & " does not exist."
End If

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

floyd
Sun Apr 27 02:43:51 CDT 2008

Thanks Tods it works.

"Todd Vargo" <tlvargo@sbcglobal.netz> schreef in bericht
news:usbpATypIHA.1772@TK2MSFTNGP03.phx.gbl...
> floyd <w> wrote:
>> Ok one file is ok but i have more folders that begins with GTA.001
>> GTA.002 etc.
>
> (Somehow I expected this response)
>
> So is Sfolderdir to be the root folder then? Or was "C:\temp" the root?
> Never
> mind, I'll decide for you. Sfolderdir is the root folder you want to
> delete
> folders from.
>
> Sfolderdir = "c:\temp"
> Set objFSO = CreateObject("Scripting.FileSystemObject")
>
> If objFSO.FolderExists(Sfolderdir) Then
> Set objFolder = objFSO.GetFolder(Sfolderdir)
> For Each folder In objFolder.SubFolders
> If Now() - folder.DateCreated > 2 Then
> WScript.Echo folder.name & " DELETED"
> objFSO.DeleteFolder(folder)
> Else
> WScript.Echo folder.name & " NOT DELETED"
> End If
> Next
> Else
> WScript.Echo Sfolderdir & " does not exist."
> End If
>
> --
> Todd Vargo
> (Post questions to group only. Remove "z" to email personal messages)
>