Does anyone know what the code is as the help file is not very usefull
dim i,s,z as integer
dim name, name1 as string
for i = 1 to 500
if MenuitemInfoByHandler(i,MENUITEM_INFO_HELPMSG) =
"Open this file." then
name =
MenuitemInfoByHandler(i,MENUITEM_INFO_TEXT)
s=instr(1,name,".WOR")
s=instr(1,name,".TAB")
z=instr(1,name,".tab")
z=instr(1,name,".wor")
if s <> 0 then
name1=MenuitemInfoByHandler(i,MENUITEM_INFO_TEXT)
name1=mid$(name1,4,100)
Print "workspace name = " + name1
exit sub
end if
if z <> 0 then
name1=MenuitemInfoByHandler(i,MENUITEM_INFO_TEXT)
name1=mid$(name1,4,100)
Print "workspace name = " + name1
exit sub
end if
end if
next
HTH
Greg Driver
System Administrator
Applications Support
ICT
NOT PROTECTIVELY MARKED