F8 failing to work ... Bad Day? Grey Moment? Other?

[oscarse]

Office 2K3 Access 2K3 VBA ... entered a public FOO() sub and or function;

Option Compare Database
Option Explicit
Public Function foo()
Dim fs
fs = CreateObject("Scripting.filesystemobject")
Debug.Print fs.DriveExists("J:")
Debug.Print fs.FolderExists("J:\RA\wo\065K")
Debug.Print fs.FileExists("J:\RA\wo\065K\65119-001.jpg")

End Function

F8 is not greyed out but just Bomps at me with no error messages F5 does the same???

Can SOMEONE PLEASE EXPLAIN TO ME WHAT IS GOING ON.

 

[Remou]

You need a 'set':

Set fs = CreateObject("Scripting.filesystemobject")

 

[oscarse]

Thanx ... actually it was a grey moment!!!! ... CODE CANNOT BE TESTED IN A FORM UNLESS THE FORM IS RUNNING ... I moved the code to a module and bada bing