間違ったパスなのにマイドキュメントが開く

Sub フォルダを開く()
Shell "explorer C:\Windows", vbNormalFocus
End Sub
このコードで問題なくフォルダは開くのですが
敢えて
Shell "explorer C:\Windowsあああ", vbNormalFocus
とした場合、エラーにならずにマイドキュメントが開いてしまいます。
なぜなのでしょうか？
また、Shellコマンド？メソッド？関数？は
エラーは発生しないのでしょうか？

ご教授よろしくお願い致します。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2009/07/11 12:14

こんにちは。

>エラーにならずにマイドキュメントが開いてしまいます。

こちらは、Win XP ですが、エラーが発生しますね。

>エラーにならずにマイドキュメントが開いてしまいます。
>なぜなのでしょうか？

分からないですね。たぶん、カレントフォルダが、マイドキュメントからだとは思いますが、OSなどのバージョンの違いのような気がします。

>また、Shellコマンド？メソッド？関数？は
>エラーは発生しないのでしょうか？

Shell 関数は、単に、プログラムを呼び出すだけです。

'-------------------------------------------

Sub フォルダを開く()
　　Dim mDir As String
　　Dim ret As Integer
　　mDir = "C:\Windowsあああ" 'フォルダ
　　If Dir(mDir, vbDirectory) <> "" Then
　　　　ret = Shell("explorer " & mDir, vbNormalFocus)
　　Else
　　　　MsgBox mDir & "は見つかりません。"
　　End If
End Sub

'-------------------------------------------

この回答へのお礼

Wendy02さんはエラーになるのですか！？
私はvistaを使用しています。

回答のコードを試してみたら
ない場合は、ちゃんとありませんになりました。
どうもありがとうございました。

お礼日時：2009/07/11 19:56