指定のフォルダーをエクスプローラーで表示
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
指定のフォルダーをエクスプローラーで表示する　　　　　　　(133)
   　　 Option Explicit　　 'SampleNo=133　WindowsXP VB6.0(SP5) 2002.05.22
'拡張子に関連付けられたプログラムを実行する(P699)
Private Declare Function ShellExecute Lib "shell32.dll" _
　　Alias "ShellExecuteA" (ByVal hwnd As Long, _
　　ByVal lpOperation As String, ByVal lpFile As String, _
　　ByVal lpParameters As String, ByVal lpDirectory As String, _
　　ByVal nShowCmd As Long) As Long
'指定のウィンドウを非表示にし、他のウィンドウをアクティブ化
Private Const SW_HIDE = 0
'ウィンドウをアクティブ化し表示（元の位置とサイズで復元）
Private Const SW_RESTORE = 9
'ウィンドウをアクティブ化し最大表示する
Private Const SW_SHOWMAXIMIZED = 3


Private Sub Command1_Click()
'lpOperation に"Explore"を指定することでエクスプローラーを起動
　　Dim lngResult As Long
　　Dim MyFolder As String

　　MyFolder = Text1.Text

　　lngResult = ShellExecute(Me.hwnd, "Explore", MyFolder, _
　　　　　　　　　　　　　　vbNullString, vbNullString, SW_RESTORE)
End Sub
　

　　実行結果
　　
テキストボックスで指定したフォルダーを関連付け起動でエクスプローラーで表示します。
これにOLE ドロップ操作を付け加えると結構便利なツールが出来るかと思います。
　　　　



2002/06/22