Can't Open Selected Document Using FileFind Macro

Sub MAIN
   Dim dlg As FileFind
   GetCurValues dlg
   dlg.SearchPath = "c:\my documents"
   dlg.Name = "*.doc"
   x = Dialog(dlg)
   FileFind dlg
End Sub
				

WORKAROUND

Because the FileFind command does not allow you to open a document, create another macro that uses the ChDir and FileOpen commands to set a search path for specific document names/types. For example:

Sub MAIN
   ChDir "C:\My Documents"
   Dim dlg As FileOpen
   dlg.Name = "*.doc"
   x = Dialog(dlg)
   FileOpen dlg
End Sub
				

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.