○デフォルトはマイドキュメント
①ネットワークフォルダに非対応
ChDir CurrentProject.Path
②対応
With CreateObject("WScript.Shell")
.CurrentDirectory = CurrentProject.Path
End With
![](http://terratalker.com/wp-content/themes/cocoon-master/images/no-image-320.png)
Accessデフォルトフォルダを自身のフォルダに変更
○デフォルトはマイドキュメント
①ネットワークフォルダに非対応
ChDir CurrentProject.Path
②対応
With CreateObject("WScript.Shell")
.CurrentDirectory = CurrentProject.Path
End With
コメント