global object which can be called in any action

[excellentpawan123]

I want to crate global object which can be called in any action i tried following code but it does not work.

Code:

Public unit

Function getunitname
         Set fso=createobject("Scripting.Filesystemobject")
         Set unit = fso.CreateTextFile "C:\QTP\xyz.txt"
End Function

on calling this in any action, it is not working

Please help