目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

224 / 277

←次へ　｜　前へ→

【62】フォルダの選択

Jaka - 04/8/11(水) 9:06 -


	引用なし

	パスワード

任意にフォルダを選択してパスを取得します。
IE4.0以上が、インストールされていることが前提。

Sub F選択()
Dim obj　As Object

'デスクトップ
MsgBox "ﾃﾞｽｸﾄｯﾌﾟが、トップ"
Set obj = CreateObject("Shell.Application"). _
　　　　　　browseforfolder(0, "フォルダを選択してください", 0)
If Not obj Is Nothing Then
　 MsgBox obj.Items.Item.Path
Else
　 MsgBox "キャンセル"
End If
Set obj = Nothing

'ﾏｲｺﾝﾋﾟｭｰﾀ（Win2000&ExL2000でも同じ）
MsgBox "ﾏｲｺﾝﾋﾟｭｰﾀが、トップ"
Set obj = CreateObject("Shell.Application"). _
　　　　　　browseforfolder(0, "フォルダを選択してください", 0, "")
If Not obj Is Nothing Then
　 MsgBox obj.Items.Item.Path
Else
　 MsgBox "キャンセル"
End If
Set obj = Nothing

'Ｃ（Win2000&ExL2000でも同じ）
MsgBox "Ｃが、トップ"
Set obj = CreateObject("Shell.Application"). _
　　　　　　browseforfolder(0, "フォルダを選択してください", 0, "C:\")
If Not obj Is Nothing Then
　 MsgBox obj.Items.Item.Path
Else
　 MsgBox "キャンセル"
End If
Set obj = Nothing

End Sub

8,605 hits