Code:
On Error resume Next
Dim s FileName As String
comDialog1.CancelError = True
comDialog1.ShowSave
If Err = cdlCancel Then
sFileName = ""
Else
sFileName = comDialog1.FileName
End If
Edit: Changed [php] tags
|
__________________
Slovenia - the green treasure of Europe
Last edited by Flyguy; 03-06-2003 at 03:57 AM.
|