jay_eire
asked on
VBS Script - Delete files/check date of files
Hi Guys,
I need some help combining these two scripts, the first script deletes backups that are a day old, the second script checks to see if there is more than two backups in the folder and if there is deletes everything in the backup folder.
what i need the script to do is....
Check to see if there is more than two files in the backup directory, if there is then delete the older backup of the two, and keep the newer backup....
here is the two scripts................
Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
Dim iDaysOld
'Delete database backup files older than 1 days
iDaysOld = 1
Set oFSO = CreateObject("Scripting.Fi leSystemOb ject")
sDirectoryPath = "C:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\"
set oFolder = oFSO.GetFolder(sDirectoryP ath)
set oFileCollection = oFolder.Files
'If database backup files are older than 1 days, delete them.
For each oFile in oFileCollection
If oFile.DateLastModified < (Date() - iDaysOld) Then
oFile.Delete(True)
End If
Next
'Clean up
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
'Delete delete all files in the directory if more than one file exists
Set oFSO = CreateObject("Scripting.Fi leSystemOb ject")
sDirectoryPath = "C:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\"
set oFolder = oFSO.GetFolder(sDirectoryP ath)
if oFolder.Files.count > 0 then
set oFileCollection = oFolder.Files
For each oFile in oFileCollection
oFile.Delete(True)
Next
' clean up
Set oFile = Nothing
Set oFileCollection = Nothing
End If
'Clean up
Set oFolder = Nothing
Set oFSO = Nothing
I need some help combining these two scripts, the first script deletes backups that are a day old, the second script checks to see if there is more than two backups in the folder and if there is deletes everything in the backup folder.
what i need the script to do is....
Check to see if there is more than two files in the backup directory, if there is then delete the older backup of the two, and keep the newer backup....
here is the two scripts................
Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
Dim iDaysOld
'Delete database backup files older than 1 days
iDaysOld = 1
Set oFSO = CreateObject("Scripting.Fi
sDirectoryPath = "C:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\"
set oFolder = oFSO.GetFolder(sDirectoryP
set oFileCollection = oFolder.Files
'If database backup files are older than 1 days, delete them.
For each oFile in oFileCollection
If oFile.DateLastModified < (Date() - iDaysOld) Then
oFile.Delete(True)
End If
Next
'Clean up
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
'Delete delete all files in the directory if more than one file exists
Set oFSO = CreateObject("Scripting.Fi
sDirectoryPath = "C:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\"
set oFolder = oFSO.GetFolder(sDirectoryP
if oFolder.Files.count > 0 then
set oFileCollection = oFolder.Files
For each oFile in oFileCollection
oFile.Delete(True)
Next
' clean up
Set oFile = Nothing
Set oFileCollection = Nothing
End If
'Clean up
Set oFolder = Nothing
Set oFSO = Nothing
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.