VBAのGetOpenFilenameで指定したネットワークドライブのフォルダがデフォルト表示させず、ローカルのマイドキュメントが表示されてしまう

Question

実現したいこと

GetOpenFilenameでネットワークドライブのフォルダをデフォルト表示させたい

前提

Windows10、Excel2013のVBAを利用。
ローカルフォルダについては、問題なくデフォルト表示されます。
ネットワークドライブフォルダについては、どれもローカルのマイドキュメントフォルダが、デフォルト表示されてしまいます。
プログラムの途中で、FolderExistsでフォルダの存在チェックでは存在。
CurDirでは、正しくネットワークドライブのフォルダに変更されております。

しかしながら、GetOpenFilenameではローカルのマイドキュメントがデフォルト表示されてしまいます。
その後手動でネットワークドライブのフォルダパスを指定すると、該当フォルダを開くことが出来ます。

該当のソースコード

Dim OpenFileName As String

With CreateObject("WScript.Shell")
.CurrentDirectory = "\\abc-aws.def.jp\share\ABC\DEF"

End With

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(CurDir) = True Then
    MsgBox "存在します！"
Else
    MsgBox "見つかりません"
End If

MsgBox CurDir

OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[otn]

カレントディレクトリーセットがコメントになってますが、エディターの色で気づくと思うので、これはテスト中に試行錯誤で付けたままになっているだけで、実際はちゃんと実行している？

[vba_2023]

色々なテストでコメント化したまま載せていました。
指摘箇所のコメントなしで実行して、ネットワークドライブの時だけ、ローカルのマイドキュメント表示となってしまいます。

[otn]

コードに問題は無いので、コード以外の原因でしょう。何でしょうね？
MsgBox CurDir
の後くらいに、
MsgBox Dir("*")
を入れて、目的フォルダーのファイルの1つが表示されますか？

[vba_2023]

MsgBox Dir("*")を試したところ、実際にはフォルダのみなので、何も表示されませんでした。
テスト的にファイルを作成して保存したところ、そのファイル名は表示されます。

[otn]

なるほど。アクセスは出来ているのですね。
ネットワークドライブ割り当てでドライブレターを与えて、そのドライブにカレントディレクトリーを移動してやると回避できそうに思います。

[vba_2023]

otnさん、有難うございます。
ネットワークドライブの割当て、そのドライブレターを指定したところ、思った通りの動きになりました。
この運用で、回避したいと思います。
有難うございました。

Answer 1

otnさんのおっしゃる通り、ネットワークドライブ割り当てでドライブレターを与えて、そのドライブにカレントディレクトリーを移動する方法で、回避出来ました。