アプリケーションのカレント ディレクトリーを取得する方法

投稿日:2016/9/1 (木) 更新日:

FileSystem.CurDir
 
Dim pDocument As IDocument
Set pDocument = ThisDocument
 
Dim pVBProject As VBProject
Set pVBProject = pDocument.VBProject
 
Replace pVBProject.FileName, ".mxd", ""
 
Debug.Print pVBProject.FileName

関連記事

-プログラミング, ArcGIS
-, ,

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.