ITravelInterfaceCanWriteFile Property |
Namespace: SuperOffice.COM.SuperOfficeDB
CanWriteFile
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.CanWriteFile Then MsgBox "The currently logged in associate may write updatefiles." Else MsgBox "The currently logged in associate may not have the correct permissions. Check log file for error message." End If Else MsgBox "Could not log in" End If Set objSO = Nothing