Buzzsaw Developer

Buzzsaw Developer

Reply
Distinguished Contributor
GeeHaa
Posts: 152
Registered: ‎04-14-2005
Message 1 of 3 (1,985 Views)

Getting a list of available projects

1985 Views, 2 Replies
08-28-2008 05:03 AM
Is there a way to get a list of available Projects?

I've tried.

Dim PPprojects As PPResourceCollection
Set PPprojects = PPsess.GetResource("SiteName")

I get a type mismatch error.

Thanks
Distinguished Contributor
GeeHaa
Posts: 152
Registered: ‎04-14-2005
Message 2 of 3 (1,985 Views)

Re: Getting a list of available projects

09-03-2008 04:28 AM in reply to: GeeHaa
I have also tried this.

Dim PPProj As PPPROJECT
Dim PPprojects As PPResourceCollection
Dim ppsit As PPSITE
Set ppsit = New PPSITE
ppsit.AttachSession PPsess
Set PPprojects = ppsit.SubProjects

I get a Subprojects method failed error after the above line

For Each PPProj In PPprojects
CBO_Projects.AddItem PPProj.Name
Next PPProj

Any help would be appreciated.

Thanks
Active Member
makoo
Posts: 8
Registered: ‎08-21-2007
Message 3 of 3 (1,985 Views)

Re: Getting a list of available projects

10-28-2008 07:09 PM in reply to: GeeHaa

Hello geehaa,

You can get the resources in a site by using the following methods.

1. Using GetFolderContents methods in PPScripting

If you set "https://webfolders.buzzsaw.com/sitename/test" to sURL,
you can get all resources name in test folder.

Dim oPPcol As IPPResourceCollection
Dim oPPres As IPPResource
Dim sFolderList As String
sFolderList = ""
oPPcol = oPPScripting.GetFolderContents(sURL, sUsername, sPassword)
For Each oPPres In oPPcol
sFolderList = sFolderList & ", " & oPPres.Name
Next
MsgBox(sFolderList)


2. Using GetFolderContentsList methods in PPScripting2

If you set "https://webfolders.buzzsaw.com/sitename/test" to sURL,
you can get XML file (Folder.xml) of all resources list in test folder.

Dim oPPScript2 As New PPScripting2
Dim fRes As String

fRes = oPPScript2.GetFolderContentsList(sURL, sUsername, sPassword)
Dim Fno As Integer
Fno = FreeFile()
FileOpen(Fno, "C:\Folder.xml", OpenMode.Output, OpenAccess.Write)
PrintLine(Fno, fRes)
FileClose(Fno)
MsgBox("Done!")

I recommend that you check sample programs in ProjectPoint API toolkit.
You will be able to understand how to use the methods in the API samples.

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions to get help installing your software.

New Buzzsaw Category!

The Buzzsaw forum has moved into it's very own category page, and can no longer be found within the Additional Product Forums.