ITravelInterfaceCanReadFile Property |
Namespace: SuperOffice.COM.SuperOfficeDB
CanReadFile
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Dim objTI Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then Set objTI = objSO.Database.TravelInterface If objTI.CanReadFile Then MsgBox "The associate that is logged in can read the replication file" Else MsgBox "The associate that is logged in can't read the replication file" End If Else MsgBox "Could not log in" End If Set objSO = Nothing