BrowseForFolder

ユーザーがフォルダを選択できるようにするダイアログボックスを作成し、選択したフォルダのFolderオブジェクトを返します。

構文
Folder = Shell.BrowseForFolder( Hwnd, sTitle, iOptions, [vRootFolder] )
引数
Hwnd
ダイアログボックスの親ウィンドウのハンドル
sTitle
ダイアログボックス内に表示される文字列
iOptions
BROWSEINFO 構造体のulFlagsメンバーからなる値リストの組み合わせ
vRootFolder
ダイアログボックスで使用する、ルートフォルダを指定する
戻値
フォルダ選択のダイアログボックスを表示し、選択したフォルダのFolderオブジェクトを返す。

プログラム実行例

選択したフォルダのパスを取得

CONST ssfDesktop = 0 DIM Shell = CREATEOLEOBJ("Shell.Application") DIM Folder = Shell.BrowseForFolder(0, "フォルダを選択してください。", 0, ssfDesktop) PRINT Folder.Self.Path

指定したディレクトリ内のフォルダ・ファイル情報を取得

CONST ssfDesktop = 0 DIM Shell = CREATEOLEOBJ("Shell.Application") DIM Folder = Shell.BrowseForFolder(0, "フォルダを選択してください。", 0, ssfDesktop) FOR n = 0 TO Folder.Items.Count - 1 DIM FolderItem = Folder.Items.Item(n) WITH FolderItem PRINT "名前<#TAB><#TAB>" + .Name PRINT "サイズ<#TAB><#TAB>" + .Size + " Byte" PRINT "更新日時<#TAB>" + .ModifyDate PRINT "パス<#TAB><#TAB>" + .Path PRINT "種類<#TAB><#TAB>" + .Type ENDWITH PRINT "----------" NEXT