FileBrowserオブジェクトの ShowOpenメソッドを使用すると、作業するファイルをユーザが指定できます。
FileBrowser.ShowOpen(); |
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
|