VBScript
<html>
<html>
<head>
<title>フォルダの参照ダイアログ</title>
</head>
<body>
<script language="vbscript">
function Folderdialog()
Dim oSA, oFolder
Set oSA = CreateObject("Shell.Application")
Set oFolder = oSA.BrowseForFolder(0, "タイトル", &H40000,&H0)
If oFolder Is Nothing Then
MsgBox "キャンセル"
Else
MsgBox oFolder.Self.Path
End If
End Function
</script>
<input type="button" value="フォルダの参照" onclick="Folderdialog()">
</body>
</html>
コード解説
BrowseForFolder() 関数は、Shell.Application オブジェクトを使用してフォルダ選択ダイアログを表示します。Folder = Shell.BrowseForFolder( Hwnd, sTitle, iOptions, vRootFolder )oFolder.Self.Pathは、選択されたフォルダのパスを取得します。
Hwndは、フォルダのみを選択できることを指定します。
sTitleは、ダイアログのタイトルです。
iOptions、0 または BROWSEINFO 構造体の ulFlags メンバーの下にリストされている値の組み合わせ。
vRootFolder、ダイアログの初期表示フォルダをデスクトップに設定します。
免責事項
このコードは、いかなる保証もなしに提供されます。このコードを使用したことによるいかなる損害も負いません。
0 件のコメント:
コメントを投稿