目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

217 / 277

←次へ　｜　前へ→

【69】フォルダ選択<Shell使用>

BOTTA - 04/8/23(月) 19:32 -


	引用なし

	パスワード

'<Shell使用>Jakaさんコードに追加
'obj.Items.Item.Pathだと「デスクトップフォルダ」が選択できなくなるので
'「デスクトップフォルダ」選択時の処理を追加
Sub f選択02()
　　Dim obj As Object
　　Dim tmpF As String
　　Dim SelectedF As String
　　Set obj = CreateObject("Shell.Application"). _
　　　　browseforfolder(0&, "フォルダを選択してネ", &H1, &H0)
　　If Not obj Is Nothing Then
　　　　If Not obj.ParentFolder Is Nothing Then
　　　　　　tmpF = obj.Items.Item.Path
　　　　Else
　　　　　　Dim objDskTop As Object
　　　　　　Set objDskTop = CreateObject("WScript.Shell")
　　　　　　tmpF = objDskTop.SpecialFolders("DeskTop")
　　　　　　Set objDskTop = Nothing
　　　　End If
　　　　If tmpF = "" Then MsgBox "選択不可!!", 16: GoTo HdlExit
　　　　SelectedF = tmpF
　　　　MsgBox SelectedF, 64, "選択されたフォルダ"
　　End If
HdlExit:
　　Set obj = Nothing
End Sub
'補足
'>IE4.0以上が、インストールされていることが前提
'ですが､もっと詳しくは､
'IE4.0以上で、SHELL32.DLLのバージョンが4.71以降でないとエラーになります。
'(IE4.0でも、シェル統合インストールしていない場合はSHELL32.DLLのバージョンは
'4.71未満のままだそうです。＞by JuJuさん)

8,975 hits