RE: [MI-L] List of open files [SEC=UNOFFICIAL]

[Peter Horsbøll Møller]

Percy,   You wonder how many of the most common used functions in MapBasic you actually have to write yourself ;-) This is one of those, but it is quite simple to write.   Function GetListOfOpenTables(arrTabs() As String) As Integer   Dim nTab As Integer   GetListOfOpenTables = 0      Redim arrTabs(NumTables())    For nTab = 1 To NumTables()       '**Here you could laos add conditions, only base tables, not semaless tables, only mappable ...       arrTabs(nTab) = TableInfo(nTab, TAB_INFO_NAME)    Next   GetListOfOpenTables = Ubound(arrTabs)   End Function   HTH, Peter Horsbøll Møller GIS Developer, MTM Geographical Information & IT   COWI A/S Odensevej 95 DK-5260 Odense S. Denmark   Tel     +45 6311 4900 Direct  +45 6311 4908 Mob     +45 5156 1045 Fax     +45 6311 4949 E-mail  [EMAIL PROTECTED] http://www.cowi.dk/gis "For enden af regnbuen..." - hvordan kommer man dertil og er det overhovedet muligt? Læs mere om årets MapInfo konference på www.cowi.dk/mapinfokonference   From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bell, Percy Sent: Monday, July 17, 2006 7:41 AM To: MapInfo-L@lists.directionsmag.com Subject: [MI-L] List of open files [SEC=UNOFFICIAL] Guys,   I am trying to adapt a packager program for our own archiving. But I have been tearing my hair out trying to find a command in Mapbasic to return a list of open tables and queries.   Can anybody help?   Cheers   Percy     Percy Bell Research Statistics and Technology Branch Phone: (02) 6271 1463 Mob:    (0415) 260 805 Fax:    (02) 6271 1144 Department of Communications, Information Technology and the Arts GPO Box 2154, Canberra ACT 2601 Australia URL:http://www.dcita.gov.au Email: [EMAIL PROTECTED]   _______________________________________________________________________________________________________ The information transmitted is for the use of the intended recipient only and may contain confidential and/or legally privileged material.  Any review, re-transmission, disclosure, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited and may result in severe penalties.  If you have received this e-mail in error please notify the Security Advisor of the Department of Communications, Information Technology and the Arts, telephone (02) 6271-1880 and delete all copies of this transmission together with any attachments. For all other enquiries please ring (02) 6271-1000.  _______________________________________________________________________________________________________

_______________________________________________
MapInfo-L mailing list
MapInfo-L@lists.directionsmag.com
http://www.directionsmag.com/mailman/listinfo/mapinfo-l