Mass Creation of PCAnywhere CHF files

[ajackm]

I am trying to create a piece of code to create about 250 PcAnywhere files from scratch. So far I have been trying to use the OLE code from the PCAnywhere manual, but have had no success.

The below is the code, but it errors with "Object variable or with block variable not set".

Can anyone point in the direction of what is wrong?

Private Sub CommandButton1_Click()
Dim RemoteDataManager As Object
Dim RemoteData As Object
Dim s As String

Set RemoteDataManager = CreateObject("WINAWSVR.REMOTEDATAMANAGER&quot
MsgBox (RemoteDataManager.CurrentDirectory())

CRemoteDataManager.ChangeDirectory ("C:\dev\bin.w32\data&quot
MsgBox (RemoteDataManager.CurrentDirectory())
Set RemoteData = RemoteDataManager.CreateObject("Test&quot
RemoteData.ComputerName = "Host1"
RemoteData.ConnectionType = "TCP/IP"
s = RemoteData.ConnectionType
MsgBox (s)
s = RemoteData.ComputerName
MsgBox (s)
RemoteData.WriteObject (0)
End Sub