>Can somebody tell me what's wrong with this code? I get an error message about the OPENFILE procedure (Sub or Function not defined) when I put it in the click event of a command button.
>
>CommonDialog1.Filter = "Text Files|*.txt"
>CommonDialog1.ShowOpen
>OpenFile (CommonDialog1.Filename)
>
>
>Thank you in advance
It should read "Text Files (*.txt) | *.txt"
or for more options "Text Files (*.txt;*.text;*.bak) | *.txt;*.text;*.bak"
below is an actual clip from my proj:
'** Start OF SOURCE'
CommonDialog1.Filter = _
"Image Files (*.jpg;*.gif;*.jpeg;*.bmp;*.tiff;*.tif)|*.jpg;*.gif;*.*.jpeg;*.bmp;*.tiff;*.tif|" & _
"All files (*.*)|*.*" ' *.* just in case they have some freaky format we need to allow.
' Specify default filter
CommonDialog1.FilterIndex = 0
' Display the Open dialog box
CommonDialog1.ShowOpen
' Display name of selected file
txtSideBG.Text = CommonDialog1.FileName
'** END OF SOURCE'
~Joe Johnston USA
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams
