選択したファイルの基本名を戻します（c:¥myFolder¥foo.txt の場合は foo）。このプロパティは、ファイルブラウザに表示されるデフォルトのファイル名を設定するためにも使用できます。空のStringが戻された場合は、ユーザがファイルを選択していなかったことを意味します。
dim oFileBrowser
set oFileBrowser = XSIUIToolkit.FileBrowser
oFileBrowser.DialogTitle = "Select a file" ' set the title of the file browser
oFileBrowser.FileBaseName = "foo" ' set the default file name to "foo"
oFileBrowser.Filter = "All Files (*.*)|*.*||" ' Allow selection of all files
oFileBrowser.ShowOpen ' show an open file dialog
logmessage VB_LF
' if the user selected a file
If oFileBrowser.FilePathName <> "" Then
logmessage "File base name : " & oFileBrowser.FileBaseName
' the user did not select a file
Else
logmessage "User pressed cancel"
End If
|