What is wrong with this code?

[gururajd]

Please help me in correcting this code:

I am trying to upload a local file to Buzzsaw folder
Login is successful and getResource is successful.
Line with folder.AddFile (pfile) gives me an error with Object doesnot support property or method.

Thanks for help in advance
- Guru


Dim myPPSession As New PPSession
Dim folder As New PPFOLDER
Dim pfile As New PPFILE
On Error GoTo ErrorLabel

myPPSession.LogIn "userid", "password", "https://webfolders.buzzsaw.com/testsite"
Set folder = myFLSPPSession.GetResource("/Trial Site Content/2. Sample Construction Project/XYZ Project/")
pfile.LocalPath = "c:\test.TIF"
pfile.Name = "test.TIF"
folder.AddFile (pfile)

myPPSession.LogOut

GoTo ExitLabel
ErrorLabel:
MsgBox Err.Description
myPPSession.LogOut
ExitLabel:
End Sub

[Anonymous]

It looks right to me. Can you send me the complete page and I will try it on
my own site?
\
wrote in message news:4865680@discussion.autodesk.com...
Please help me in correcting this code:

I am trying to upload a local file to Buzzsaw folder
Login is successful and getResource is successful.
Line with folder.AddFile (pfile) gives me an error with Object doesnot
support property or method.

Thanks for help in advance
- Guru


Dim myPPSession As New PPSession
Dim folder As New PPFOLDER
Dim pfile As New PPFILE
On Error GoTo ErrorLabel

myPPSession.LogIn "userid", "password",
"https://webfolders.buzzsaw.com/testsite"
Set folder = myFLSPPSession.GetResource("/Trial Site Content/2. Sample
Construction Project/XYZ Project/")
pfile.LocalPath = "c:\test.TIF"
pfile.Name = "test.TIF"
folder.AddFile (pfile)

myPPSession.LogOut

GoTo ExitLabel
ErrorLabel:
MsgBox Err.Description
myPPSession.LogOut
ExitLabel:
End Sub