Why don't you use CommonDialog?
Place a CommonDialog control on the form.
Do the same for all the command buttons.Code:Private Sub Command1_Click() Dim iFile As Integer On Error GoTo User_Cancelled With CommonDialog1 .CancelError = True .DialogTitle = "Select a File.." .Filter = "File (*.*)|*.*" .ShowOpen Text1.text = CommonDialog1.FileName End With User_Cancelled: End Sub
[Edited by Matthew Gates on 07-11-2000 at 10:13 PM]




Reply With Quote