５．指定のフォルダーをエクスプローラーで表示

１．指定のフォルダーをエクスプローラーで表示 ２． ３． ４． ５． ６． ７．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定： 　　　　　　　　　　　　　　　　　　参照設定方法参照 使用 API：ShellExecute その他　：このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。 　　　　：

１．指定のフォルダーをエクスプローラーで表示

Option Explicit　　 'SampleNo=133　 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_SHOWNORMAL = 1 'ウィンドウをアクティブ化し最大表示する Private Const SW_SHOWMAXIMIZED = 3 'ウィンドウをアクティブ化し表示(元の位置とサイズで復元) Private Const SW_RESTORE = 9 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_SHOWNORMAL) End Sub

２．

３．

４．

５．

６．

７．

検索キーワード及びサンプルコードの別名(機能名)