Полный путь к папке

Используя этот код

Dim fo As Scripting.Folder
Set fo = fso.GetFolder(m_sFolder)

Dim nSubfolder As Scripting.Folder

For Each nSubfolder In fo.SubFolders

    Debug.Print "Folder " & fo.Path & " has subfolder " & nSubfolder 

Next

... Я получаю имя папки "C:\Users\MyUser\Documents\Eigene Bilder"

Эта папка не существует и, похоже, является JUNCTION.

Как я могу получить полное имя для этой папки?


windows windows-10 vb6 junction fso
person tmighty    schedule 24.01.2017    source источник
comment
Мне нужно получить реальный путь к этой папке.   -  person tmighty    schedule 24.01.2017
comment
›› реальный путь Каков ваш вариант использования? Во всех экземплярах, которые мне попадались, разницы в работе нет. Вы получаете одно и то же содержимое и т. д., независимо от того, попадаете ли вы туда напрямую или через перекресток.   -  person Jim Mack    schedule 25.01.2017
comment
Когда вы установите fso = fso.GetFolder(C:\MyUser\Documents), вы получите подпапки C:\Users\MyUser\Documents\Pictures и C:\Users\MyUser\Documents\Videos, но эти папки не существуют. Мне нужно показать пользователю подпапки, но когда он выбирает одну из них, каталог оказывается пустым. Это потому, что папка на самом деле не существует. Вот почему я искал способ получить абсолютный путь.   -  person tmighty    schedule 25.01.2017
comment
Возможный дубликат FSO возвращает несуществующие подпапки   -  person Martin    schedule 25.01.2017