フォルダを開くには？

解決

ヒロト 2004-06-17 23:09:59 No: 114000 IP: [192.*.*.*]

CommandButtonを押したら、フォルダを開くようにしたいのですが、できるでしょうか？
“C:\WINDOWS”や“\\PC\共有”といったフォルダを開きたいです。
御指導お願いします。

特攻隊長まるるう 2004-06-18 00:32:28 No: 114001 IP: [192.*.*.*]

普通にコモンダイアログ使えば良いんじゃないですか？

Say 2004-06-18 02:26:56 No: 114002 IP: [192.*.*.*]

たとえば
Option Explicit
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 Sub Command1_Click()
ShellExecute Me.hwnd, "explore", “C:\WINDOWS”や“\\PC\共有”"", "", 1&
End Sub
とか？

編集削除

Say 2004-06-18 02:29:06 No: 114003 IP: [192.*.*.*]

訂正
ShellExecute Me.hwnd, "explore", “C:\WINDOWS”や“\\PC\共有”"", "", 1&
↓
ShellExecute Me.hwnd, "explore", "C:\WINDOWS", "", "", 1&

編集削除

ヒロト 2004-06-18 08:54:34 No: 114004 IP: [192.*.*.*]

試してみたのですが、何も反応が起こりませんでした。
アドレス部の"C:\WINDOWS"を消すとエクスプローラは立ち上がりました。
どうすれば良いのでしょうか？

編集削除

ヒロト 2004-06-18 09:02:27 No: 114005 IP: [192.*.*.*]

すいません。
"C:\WINDOWS"は何も反応がなかったのですが、"\\PC\共有"では立ち上がりました。
ん〜謎です。
あと、欲を言えば左側にツリーで出てきているので、それを無くしたいのですが、
できるでしょうか？

編集削除

魔界の仮面弁士 2004-06-18 09:08:36 No: 114006 IP: [192.*.*.*]

CreateObject("Shell.Application").Explore CVar("C:\WINDOWS")

とか。

編集削除

魔界の仮面弁士 2004-06-18 09:20:15 No: 114007 IP: [192.*.*.*]

> 左側にツリーで出てきているので、それを無くしたいのですが
であれば、
CreateObject("Shell.Application").Open CVar("C:\WINDOWS")
とか。

編集削除

ぎゃっき 2004-06-18 10:00:33 No: 114008 IP: [192.*.*.*]

ShellExecute Me.hwnd, vbNullChar,"C:\WINDOWS", vbNullChar, vbNullChar, vbNormalFocus
でだめかな？

編集削除

ヒロト 2004-06-18 12:55:28 No: 114009 IP: [192.*.*.*]

解決できました。
ありがとうございました。

＞"C:\WINDOWS"は何も反応がなかったのですが
ここの部分、とんでもないことにアドレス間違って入力してました。
お騒がせして申し訳ない。

編集削除