Project File Path (VB)

AutoCAD 2000

Hello again

I have a quick question. I need to set the Project File Search Path for all drawings in a folder. I have searched here and found some code from CmdrDuh that will help set the Support Path and I am trying to adapt it to work for the Project File Search Path. Right now it is giving me a compile error. Can someone help me straighten out this code? I appreciate your help.

[font=Courier New][color=black][color=black][font=Courier New]   Dim ProjectName As String[/font][/color]
[color=black][font=Courier New]   Dim ProjectPath As String[/font][/color]
[color=black][font=Courier New]   ProjectName = "Central"[/font][/color]
[color=black][font=Courier New]   ProjectPath = "C:\BaseMaps"[/font][/color]

[color=black][font=Courier New]     Dim MySearchPath As String[/font][/color]
[color=black][font=Courier New]     MySearchPath = UCase(ThisDrawing.Application.Preferences.Files.SetProjectFilePath(ProjectName, ProjectPath))[/font][/color]

[color=black][font=Courier New]     If Not InStr(1, MySearchPath, ProjectPath) > 0 Then[/font][/color]
[color=black][font=Courier New]     ThisDrawing.Application.Preferences.Files.SupportPath = ProjectPath & ";" & MySearchPath[/font][/color]
[/color][/font]

Thank you

Mike