Private Sub RestoreProject() 'The following Visual Basic example restores a project ' that was saved in the MyProject subdirectory. Dim sDomainName As String Dim sProjectName As String Dim sServerName As String Dim CreateOptions As Long Dim sReply As String On Error GoTo err sDomainName = "MyDomain" sProjectName = "MyProject" sServerName = "http://myserver/sabin" sReply = m_SAClient.RestoreProject( _ sDomainName, sProjectName, SA_ORACLE_DB_TYPE, _ "C://TD_Dir/MYDOMAIN/MyProject", sProjectName, _ sServerName, "jdbc:inetora:myserver:1521:myserver", _ sUserPassWord, True, True, True, 20, "", _ "New Project1 for testing") MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub