Thanks Cableguy, problem solved. Here the code
opendialog1.File = AppPath & "\alldata.sl3"
openDialog1.Filter = "sl3 DATA Files|*.sl3"
SaveDialog1.File = OpenDialog1.File
If SaveDialog1.Show = cCancel Then
Return
End If
FileCopy(OpenDialog1.File, SaveDialog1.File)
Thanks Again
|