read the .csv file names in a folder and compare

RvdG

Thanks for the answers. It helped me a lot!

Is there also a possebility to read the file names in a folder and compare the date in the file name with the current date for example?

Dir

Function

This method returns the name of a file, directory, or folder that matches a specified pattern or file attribute.

Syntax

File.Dir (Pathname,[Attributes])

Parameters

File

Reference to a FileSystem control.

Pathname

Optional. String expression that specifies a file name or path.

Attributes

Optional. Numeric expression whose sum specifies file attributes. If omitted, all files that match pathname are returned.

The following table describes the parameter settings of attributes.

Constant	Value	Description
fsAttrNormal	0	Normal
fsAttrReadOnly	1	Read only
fsAttrHidden	2	Hidden
fsAttrSystem	4	System file
fsAttrVolume	8	Volume label. If specified, all other attributes are ignored.
fsAttrDirectory	16	Directory or folder
fsAttrArchive	32	Logs

Return values

String. File name that matches pathname and attributes. Dir returns a zero-length string ("") if pathname is not found.

Remarks

Dir supports the use of multiple-character (*) and single-character (?) wildcards to specify multiple files. You must specify pathname the first time you call the Dir method. In addition, if you specify file attributes you must include pathname.
The Dir method returns the first file name that matches pathname. To get any additional file names that match pathname, call Dir again with no parameters. When no more file names match, Dir returns a zero-length string (" "). Once a zero-length string is returned, you must specify pathname in subsequent calls.

I would like to delete the files modified longer than 5 hours ago for a test. I used de .Dir function but I don't know if it works. How can I test if the .Dir function read the right files?

This is my script:

Dim fso
Dim repeat
Dim FileName
Dim FileModified, DiffDate
Dim File

'Always repeat
repeat=1

'Repeat
Do While repeat=1

'Get file name
Set FileName = CreateObject ("FileCtl.filesystem")
FileName.Dir("\Storage Card SD\TestLogs\")

'Get file date last modified
Set FileModified = CreateObject ("FileCtl.filesystem")
FileModified.FileDateTime("\Storage Card SD\TestLogs\" & FileName)

'Difference date in hours
DiffDate=DateDiff("h",FileModified,Now)

'Difference longer than 5 hours -> delete file
If DiffDate > 5 Then
Set fso = CreateObject ("FileCtl.filesystem")
fso.Kill("\Storage Card SD\TestLogs\" & FileName)
End If

Loop