Files and Folders

First I want to read all files data paths and creation dates from a particular folder into a separate text file. I want to then check that text file later on and delete the files within it that are a month old.

Ok thank you. I believe what I am seeing is the date and time of the creation of the folder. Now how would I store the date of the files in that folder and if I can do this I can store them as strings, correct. Also how would I be able to compare these dates since they are strings.

Sorry I'm just very new to Visual Basic and trying to get used to it after essentially only using C++ to program.

Something like this. Then you could just write str to a file, and then read in, and split by lines, and then comma's to get the date info.
You could load each one into an array, if you need to.


Dim Str as string

str = str & s1 & _
", " & f.DateCreated & _
"," & f.DateLastModified & _
"," & f.DateLastAccessed & vbCrLf

Try Dim fileDate As Date, not as String.
If you get an error when trying to Input#, then
- leave it as string and add a Date variable: Dim fDate As Date
- Read in the filename, date
- fDate = CDate(fileDate)
- now do your DateDiff using fDate not fileDate

I think what my problem was that I did not close file from outputting before I tried to input. Also the way vb6 outputs into a file is like:

"This is my string",#date#

When inputting does it skip over the comma or do I have to put some code in so it reads over it. I've been trying to debug myself but I need a simple print function, comparable to cout in c++ but I don't know of one.

Yes, not closing your file will cause an EOF immediately. After you close it, you need to Open it. So, you will need 2 files, one to read from and one to write to. You cannot reliably read & write to the same file at the same time unless the file is opened As Binary or as a recordset.

Example: Read log line, test file date to Limit, and if needed: write to log and kill file

Additionally, I still believe you must change your fileDate variable to Date vs String.

Thanks for the help guys. This is my revised code.

Function GetFileInfo(strPath As String)

Open strPath For Input As #1

Dim filePath As String
Dim daysOld, limit As Integer
Dim f As Object, fso As New FileSystemObject
Dim FileList As Files, currFile As File

While Not EOF(1)

Input #1, filePath, limit 'Inputting filename and age limit in given format

Set f = fso.GetFolder(filePath) 'Creating a folder object to read from

Set FileList = f.Files 'Creates an array with the filenames from the given folder

For Each currFile In FileList

daysOld = DateDiff("d", currFile.DateCreated, Now)

If (daysOld > limit) Then

Kill (currFile)

End If
Next

Wend

End Function

Public Sub main()
GetFileInfo App.Path & "\FileList.txt"
End Sub

I wrote this in a module not a form and I need to add a timer for everytime it goes to the next input line for the folder path. How would I go about making this timer as I've tried searching and the only way I've seen is through a form

I want to run basically the While Not EOF(1) section every 60 seconds so I can to give some memory relief. Basically once one folder has been read through and all the files that are too old are deleted, and its bout to go onto the next file path I want to pause for 60 seconds before it reads in the next folder path.

I believe the timer you posted is for a form but I'm trying to add it to a module.