如何从Application.Path获取UNC路径？

Question

我想在vba代码中获取活动工作簿的路径。 ActiveWorkbook.Path做这个

但

我需要它来检索如下内容：

\\MachineName\ShareFolder\ETC\ETC2

不：

S:\ETC\ETC2

哪里S:映射到\\MachineName\ShareFolder\。我该怎么做？

Answer 1

下面的代码将以您请求的方式识别文件路径。

Path = Right(CurDir(), Len(CurDir()) - InStr(CurDir(), "\") + 1)