deleting a subfolder

Hi,
I've a script that delete subfolders but i need to delete one folder i
a directory.

example:

\Mssql\DB\archive
i need to delete the content (backup files) of the DB folder, excep
the folder archive.This (archive) folder may NOT be deleted or cleane
out..

Please need some help..
Thnx

Remco

Here is the Vbs Script;


dim oFSO, oFolder
dim strArchiveFolder
dim intArchiveDagen

If WScript.Arguments.Count < 2 Then
WScript.Echo "Gebruik: " & WScript.ScriptName & " ArchiefFolde
AantalDagen"
WScript.Quit
End If

strArchiveFolder = WScript.Arguments(0)
intArchiveDagen = CInt(WScript.Arguments(1))

set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strArchiveFolder) Then
Return
End If

For Each oFolder In oFSO.GetFolder(strArchiveFolder).SubFolders
If Now - oFolder.DateCreated > intArchiveDagen Then
'WScript.Echo oFolder.Name
Call oFolder.Delete(True)
End If
Nex


-
itsmur
-----------------------------------------------------------------------
Posted via http://www.codecomments.co
-----------------------------------------------------------------------

Steven
Wed Sep 15 07:51:25 CDT 2004

If Now - oFolder.DateCreated > intArchiveDagen and NOT oFolder.Name =
"archive" Then
'WScript.Echo oFolder.Name
Call oFolder.Delete(True)
End If

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!


"itsmurf" <itsmurf.1cmnpp@mail.codecomments.com> wrote in message
news:itsmurf.1cmnpp@mail.codecomments.com...
>
> Hi,
> I've a script that delete subfolders but i need to delete one folder in
> a directory.
>
> example:
>
> \Mssql\DB\archive
> i need to delete the content (backup files) of the DB folder, except
> the folder archive.This (archive) folder may NOT be deleted or cleaned
> out..
>
> Please need some help..
> Thnx
>
> Remco
>
> Here is the Vbs Script;
>
>
> dim oFSO, oFolder
> dim strArchiveFolder
> dim intArchiveDagen
>
> If WScript.Arguments.Count < 2 Then
> WScript.Echo "Gebruik: " & WScript.ScriptName & " ArchiefFolder
> AantalDagen"
> WScript.Quit
> End If
>
> strArchiveFolder = WScript.Arguments(0)
> intArchiveDagen = CInt(WScript.Arguments(1))
>
> set oFSO = CreateObject("Scripting.FileSystemObject")
>
> If Not oFSO.FolderExists(strArchiveFolder) Then
> Return
> End If
>
> For Each oFolder In oFSO.GetFolder(strArchiveFolder).SubFolders
> If Now - oFolder.DateCreated > intArchiveDagen Then
> 'WScript.Echo oFolder.Name
> Call oFolder.Delete(True)
> End If
> Next
>
>
>
> --
> itsmurf
> ------------------------------------------------------------------------
> Posted via http://www.codecomments.com
> ------------------------------------------------------------------------
>