Using the File System Object to Qualify a File 2

[stephenj789]

Hello, I would like to have a file qualified by its modified date. Here is a sample of the code I would like to use:

Dim answer As Integer
Dim f As Object, fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

f = <directory path> <filename>

If Now - f.DateLastModified > 7 Then

answer = MsgBox("The file you selected is over 1 week old, are you sure you have the correct file?", vbYesNo, "Old File")
	
	If answer = vbYes Then
	Elseif answer = vbNo Then
  	 Exit Sub
	End If
Else
End If

The code above does not work, I have just included it as a sample. What I would like to do is use the file system object to qualify a file by its modified date, but I don't know how to do it. I was unable to find any guidance for this online. Using the line:

f = fso.Getfile(<directory path> <filename>)

...doesn't work.

I am using Access 97

 

[PHV]

Have a look here:

http://msdn.microsoft.com/library/en-us/script56/html/af4423b2-4ee8-41d6-a704-49926cd4d2e8.asp

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[SkipVought]

Hi,

f is an OBJECT. Yet you have not SET this object...

    Set f = fso.GetFile(filespec)

Skip,

_[red][/red]

 

[stephenj789]

That helps. Just something I didn't think of rather than something that was fundamentally wrong (which is what I thought it was). Thanks PHV & Skip!