引数で任意のフォルダを指定して開いてるのですが、
本当はマイコンピュータで、
フォルダを開きたいのですが？？
A.Shell関数では、フォルダは開く事が出来無いようです。
これは、APIのShellExecuteを使用すれば可能です。
ShellExecuteを利用すれば、URLも開く事が可能です。
∇ フォルダ・URLを開く ∇
質問者 JUNさん タイトル Shell関数でフォルダは開かない？
Q.とりあえずShell関数でエクスプローラを起動して、
引数で任意のフォルダを指定して開いてるのですが、
本当はマイコンピュータで、
フォルダを開きたいのですが？？
A.Shell関数では、フォルダは開く事が出来無いようです。
これは、APIのShellExecuteを使用すれば可能です。
ShellExecuteを利用すれば、URLも開く事が可能です。
'ShellExecuteの宣言(標準モジュールに書く時は、Private→Publicにしてください)
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_SHOW = 5
Private Sub Form_Load()
Dim lngReshell As Long
'フォルダを開く
lngReshell = ShellExecute(Me.hwnd, "open", "C:\", vbNullString, "", SW_SHOW)
'URLを開く場合
'lngReshell = ShellExecute(Me.hwnd, "open", "http://www.manab.uni.cc/", vbNullString, "", _ SW_SHOW)
End Sub
1999 Copyright(C) Manabu
1999-00 Manabuの部屋 http://www.manabu.uni.cc/
この文章の無断転際を禁じます