Symantec PCANYWHERE - OLE AUTOMATION GUIDE V 12.5 Manual page 33

'retrieve remote data object
Set RemoteData = RemoteDataManager.RetrieveObjectEx("pod.CHF",
2, 0)
'display some properties
s = RemoteData.AreaCode()
MsgBox (s)
s = RemoteData.PhoneNumber()
MsgBox (s)
'set some properties
RemoteData.AreaCode = "212"
RemoteData.PhoneNumber = "555-5555"
'write object to disk
RemoteData.WriteObject (0)
End Sub
Use the FindFirst and FindNext methods to display the remote file in a directory
as follows:
Private Sub Command5_Click()
Dim RemoteDataManager as Object
Dim RemoteData as Object
Dim s as string
Set RemoteDataManager =
CreateObject("WINAWSVR.REMOTEDATAMANAGER")
RemoteDataManager.ChangeDirectory
("C:\dev\bin.w32\data")
RemoteDataManager.FindFirst "*", s
MsgBox (s)
RemoteDataManager.FindNext s
MsgBox (s)
End Sub
Visual Basic object definitions
CRemoteDataEx object
33