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
アプリケーションのカレント ディレクトリーを取得する方法
2016/9/1 (木)