dim oFileBrowser

set oFileBrowser = XSIUIToolkit.FileBrowser

oFileBrowser.DialogTitle = "Select a file"		' set the title of the file browser

oFileBrowser.InitialDirectory = "c:\myInitialDir\"

oFileBrowser.Filter = "All Files (*.*)|*.*||"	' Allow selection of all files

oFileBrowser.ShowSave							' show an save file dialog

If oFileBrowser.FilePathName <> "" Then

		logmessage "User selected " & oFileBrowser.FilePathName

Else

		logmessage "User pressed cancel"

End If