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"
MsgBox (RemoteDataManager.CurrentDirectory())
CRemoteDataManager.ChangeDirectory ("C:\dev\bin.w32\data"
MsgBox (RemoteDataManager.CurrentDirectory())
Set RemoteData = RemoteDataManager.CreateObject("Test"
RemoteData.ComputerName = "Host1"
RemoteData.ConnectionType = "TCP/IP"
s = RemoteData.ConnectionType
MsgBox (s)
s = RemoteData.ComputerName
MsgBox (s)
RemoteData.WriteObject (0)
End Sub
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"
MsgBox (RemoteDataManager.CurrentDirectory())
CRemoteDataManager.ChangeDirectory ("C:\dev\bin.w32\data"
MsgBox (RemoteDataManager.CurrentDirectory())
Set RemoteData = RemoteDataManager.CreateObject("Test"
RemoteData.ComputerName = "Host1"
RemoteData.ConnectionType = "TCP/IP"
s = RemoteData.ConnectionType
MsgBox (s)
s = RemoteData.ComputerName
MsgBox (s)
RemoteData.WriteObject (0)
End Sub