IDocumentFullPath Property |
Namespace: SuperOffice.COM.SuperOfficeDB
FullPath
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
dim objso set objso = CreateObject("superoffice.application") If not (objSO is nothing) Then msgbox "current document full path: " & objso.currentdocument.fullpath, vbinformation + vbokonly, "supercom" else msgbox "unable to connect" end if set objso = nothing