Alternatively you can open the file using ShellExecute. Does Visio support automation?

>I am trying to open Office & non-Office documents from a command button from the fullpath, using the given file extension.
>Word & Excel work OK. However I cannot the appropriate members of the Visio Object Model.
>
>I have found all the Object Model for Offive XP at : http://msdn.microsoft.com/en-us/library/aa155792(office.10).aspx
>
>Is there another way of opening files and viewing them, such as text files?
>
>the Method I am using is shown below
>
>
>

>WITH Thisform
>	lcSelected = ALLTRIM(.txtGetFile.Value)
>	lcFileExt  = LOWER(SUBSTR(lcSelected,AT(".",lcSelected)+1,LEN(lcSelected)-AT(".",lcSelected)))
>	DO CASE 
>	CASE lcFileExt = "doc"
>		loX = CREATEOBJECT("Word.Application")
>		loDoc = loX.Documents.Open(lcSelected)
>		loX.Visible = .T.
>	CASE lcFileExt = "xls"
>		loX = CREATEOBJECT("Excel.Application")
>		loDoc = loX.Workbooks.Open(lcSelected)
>		loX.Visible = .T.
>	CASE lcFileExt = "vsd"
>		loX = CREATEOBJECT("Visio.Application")
>		loDoc = loX.Open(lcSelected)
>		loX.Visible = .T.
>	CASE lcFileExt = "txt"
>	ENDCASE 
>
>	.Refresh 
>ENDWITH 
>