選択したファイルのファイル拡張子を戻します（c:¥myFolder¥foo.txt の場合は txt）。空のStringが戻された場合は、ユーザがファイルを選択していなかったことを意味します。
// get accessor String rtn = FileBrowser.FileExtension; |
dim oFileBrowser set oFileBrowser = XSIUIToolkit.FileBrowser oFileBrowser.DialogTitle = "Select a file" ' set the title of the file browser 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 extension : " & oFileBrowser.FileExtension ' the user did not select a file Else logmessage "User pressed cancel" End If |