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

 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

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.