I can't even count
Posted on 2001-06-16
Hi, I'm trying to count the number of saved text files that have been saved with the date and time as name.
dlgCom.Filename = Format(Now, "YYYYMMDD HHMMSS")
This is the code I'm working on for the count.
Private Sub NumTrans()
Dim i As Integer
Dim ThisFolder As Integer
Set ThisFolder = FSys.GetFolder("A:\Transact")
Set NumTrans = ThisFolder.files
For Each File In ThisFolder
I have tried a few variations but have not succeeded at all.
Many thanks for any help.