Lotus notes Hotspots

Does anyone know how to place a hyperlink to a file on the fileserver with lotus notes? I can do this manully by going Create\hotspot\URL link and pasting in the path. I need to be able to do this in code.
When i send this to someone with notes 5.0 it works, This doesn't work with 4.6  

Here is the code I am using:
Dim session As Object
Dim db As Object
Dim doc As Object
Dim msg, MyAttachment As String
Dim rtitem As Object
Dim Subj As String
Dim Col As Object
Dim x As Long
Dim i As Variant



Const EMBED_ATTACHMENT = 1454

Set session = CreateObject("Notes.NotesSession")
Set db = session.GETDATABASE("", "")
Call db.OPENMAIL

Set doc = db.CREATEDOCUMENT


msg = "'file:\\c|/test.dat'"
Subj = "hyperlink Try"

Call doc.REPLACEITEMVALUE("SendTo", "Paul Ward")
Call doc.REPLACEITEMVALUE("Subject", Subj)
Call doc.REPLACEITEMVALUE("ReturnReceipt", "1")


Set rtitem = doc.CREATERICHTEXTITEM("Body")
Call rtitem.APPENDTEXT(msg)


'MyAttachment = "N:\ward\Projects\lotusnotes\Lotusnot.doc"
'Call rtitem.EMBEDOBJECT(EMBED_ATTACHMENT, "", MyAttachment)

doc.SAVEMESSAGEONSEND = True

'This not working
Call doc.PUTINFOLDER("Misc\hero")

Call doc.SEND(False)

Set session = Nothing

MsgBox "Email sent.", vbOKOnly + vbInformation


Also the PutInFolder method is not working?????????????
Thanks

Wardy