フォルダを選択して、フォルダ内のファイル(含フォルダ)を列挙する |
|
Set Shell = CreateObject( "Shell.Application" )
' ダイアログ表示
Set objFolder = Shell.BrowseForFolder( 0, "フォルダ選択", 11, 0 )
' キャンセル
if objFolder is nothing then
WScript.Quit
end if
if not objFolder.Self.IsFileSystem then
WScript.Echo "ファイルシステムではありません"
WScript.Quit
end if
WScript.Echo objFolder.Self.Path
strItems = ""
' フォルダ内のコレクションを取得
Set objFolderItems = objFolder.Items()
' コレクションを列挙
nFiles = objFolderItems.Count
For I = 0 to nFiles - 1
Set objItem = objFolderItems.Item(I)
if objItem.isFolder then
strItems = strItems & objItem.Name & " [Folder]" & vbCrLf
else
strItems = strItems & objItem.Name & vbCrLf
end if
Next
' 全て表示
WScript.Echo strItems
VBScriptで、ビットをスイッチとして使う記述
BrowseForFolder Method
http://msdn.microsoft.com/en-us/library/bb774065(VS.85).aspx
プロパティ
http://msdn.microsoft.com/en-us/library/bb787808(VS.85).aspx
第3引数のフラグ
ファイルを表示する場合
|
選択したディレクトリ内のファイルをカレントにコピー |
|