Getting a list of available projects

[GeeHaa]

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

[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

[makoo]

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.