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.ShowOpen							' show an open file dialog
If oFileBrowser.FilePathName <> "" Then
		logmessage "User selected " & oFileBrowser.FilePathName
Else
		logmessage "User pressed cancel"
End  If