I am trying to delete the old file, it does not delete. What are the problems? thanks

Dim objFile
Dim objFolder
Dim objfso

Set objfso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objfso.GetFolder("\Storage Card SD\")
Set objFile = objFolder.Files

For Each objFile In objFolder.Files

If DateDiff("n", objFile.DateLastModified, Now) > 3 Then
objFile.Delete, True
End If

Next
End Sub

------------------------------------------------------------------------------------------
Split from WinCC Tia portal delete files on the storage card older dan x days.

Dear chupas1986

This is the script i created for a company and it is tested. The script looks at the date of the saved file and will cause files older than a year to be deleted.

Dim fs, Oude_Datum

Dim dd, mm, yyyy, hh, nn, ss,  dtsnow

Oude_Datum = Now() - 365 ' Old date is date of today - 365 days

dtsnow = Oude_Datum ' Old date

dd = Right("00" & Day(dtsnow), 2) ' The day of 365 days ago
mm = Right("00" & Month(dtsnow), 2) ' The month of 365 days ago
yyyy = Year(dtsnow) ' The year of 365 days ago

Set fs = CreateObject("filectl.Filesystem")

Datum_String = yyyy & mm & dd ' The format of the date used in the saved file.

fs.kill "\Storage Card SD\ATBU\AuditTrail0_" & Datum_String & "*.*"   ' Delete the file with date yyyymmdd 365 days old


End Sub

The script is triggered every day via the scheduled task bit that you can configure in the PLC.

It also took me a while to find the problem.I think this is a fairly simple script that is readable.I came to this through other script problems.Much research done. I hope it is clear.

Kind regards,

Frederik

Frederick, thank you for your help and quick response. I tried to delete files older than 1 day, it didn't work, what could be the problem. Set up a function call every day at 11: 00. I apologize for the time spent.

Dim fs, Old_Datum, Datum_String

Dim dd, mm, yyyy, hh, nn, ss,  dtsnow

Old_Datum = Now() - 1 ' Old date is date of today - 1 day

dtsnow = Old_Datum ' Old date

dd = Right("00" & Day(dtsnow), 2) ' The day of 1 days ago
mm = Right("00" & Month(dtsnow), 2) ' The month of 1 days ago
yyyy = Year(dtsnow) ' The year of 30 days ago

Set fs = CreateObject("filectl.Filesystem")

Datum_String =  yyyy & mm & dd  ' The format of the date used in the saved file.

fs.kill "\Storage Card SD\" & Datum_String & "*.*"   ' Delete the file with date  1 day old

Hello chupas, 

chupas1986

[...]

Set objfso = CreateObject("filectl.Filesystem")

Set objFolder = objfso.GetFolder("\Storage Card SD\")
Set objFile = objFolder.Files

For Each objFile In objFolder.Files

[...]

in my opinion "objFolder.Files" does not work with "FileCtl.Filesystem". Check the following link: Differences between the VB script functions of Windows and WinCE

It would help to use some kind of error handler in such scripts to find out why it doesn't work. The error handler could look like the following lines (at least at the end of the script) and requires a "On Error Resume Next" in the beginning of the script:

If err.number <> 0 Then

ShowSystemAlarm err.number & ", " err.description

Else

ShowSystemAlarm "OK"

End If

Then you can check in the system alarms if there is a problem in the script. 

chupas1986 

Old_Datum = Now() - 1 ' Old date is date of today - 1 day

I guess "Now()" is a value in miliseconds.

Regards,

Frink

 Dear Prof.Frink,

Sub DeleteOldFiles()

Dim File,FolderPath
Dim objFolder
Dim objfso, fo


Set objfso = CreateObject("filectl.Filesystem")
FolderPath = "\Storage Card SD\Black\"
File = objfso.Dir (FolderPath & "*.rdb")

For Each File In FolderPath
If DateDiff("n", objfso.FileDateTime(FolderPath), Now()) > 3 Then
objfso.kill File
End If
Next
End Sub​

Prof. Frink

Hello chupas, 

chupas1986

[...]

Set objfso = CreateObject("filectl.Filesystem")

Set objFolder = objfso.GetFolder("\Storage Card SD\")
Set objFile = objFolder.Files

For Each objFile In objFolder.Files

[...]

in my opinion "objFolder.Files" does not work with "FileCtl.Filesystem". Check the following link: Differences between the VB script functions of Windows and WinCE

It would help to use some kind of error handler in such scripts to find out why it doesn't work. The error handler could look like the following lines (at least at the end of the script) and requires a "On Error Resume Next" in the beginning of the script:

If err.number <> 0 Then

ShowSystemAlarm err.number & ", " err.description

Else

ShowSystemAlarm "OK"

End If

Then you can check in the system alarms if there is a problem in the script. 

chupas1986 

Old_Datum = Now() - 1 ' Old date is date of today - 1 day

I guess "Now()" is a value in miliseconds.

Regards,

Frink