Run-time Error 424

[30percent]

Hi,

I have the following code but I got the error message saying that "Run-Time Error 424, Object Required". Wonder if someone could point out what the cause is, and how to rectify?

Sub callCFP()

pathName = "C:\Code\subFolder_1"
Set fso = CreateObject("Scripting.FileSystemObject")
CreateFullPath (pathName)

End Sub

Sub CreateFullPath(byVal pathName)

absPath = fso.GetAbsolutePathname(pathName) 'error occur on this line

end Sub

The code basically stops at the line: absPath = fso.GetAbsolutePathname(pathName).

However, if I rewrite the code this way, the error doesn't appear. Could someone please explain?

Sub callCFP()

pathName = "C:\Code\subFolder_1"
Set fso = CreateObject("Scripting.FileSystemObject")
absPath = fso.GetAbsolutePathname(pathName)

Debug.Print absPath

End Sub

Thank you!

 

[dmt32]

Hi,
you need to pass an instance of the object variable to the called procedure as an argument

Sub callCFP
Dim fso as Object
'your code

'call sub with arguments
CreateFullPath fso, PathName


End Sub

Sub CreateFullPath(ByVal fso As Object, ByVal PathName As String)


 abspath = fso.GetAbsolutePathname(PathName)


End Sub

you should also declare your variables with their correct data types.

Hope Helpful

Dave