0

Using this code

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

... I get the folder name "C:\Users\MyUser\Documents\Eigene Bilder"

This folder doesn't exist and seems to be a JUNCTION.

How can I get the fully qualified name for this folder?

tmighty
  • 10,734
  • 21
  • 104
  • 218
  • I need to get the real path of that folder. – tmighty Jan 24 '17 at 20:24
  • ***>> real path*** What is your use case? In every instance I've come across, there's no difference in operation. You get the same contents, etc whether you get there directly or via the junction. – Jim Mack Jan 24 '17 at 21:16
  • When you set fso = fso.GetFolder("C:\MyUser\Documents"), you will get the subfolders "C:\Users\MyUser\Documents\Pictures" and "C:\Users\MyUser\Documents\Videos", but these folders don't exists. I need to show the user the subfolders, but when he selects one of these, the directory is empty. This is because the folder doesn't really exist. That is why I was looking for a way to get the absolute path. – tmighty Jan 24 '17 at 21:49
  • 2
    Possible duplicate of [FSO returns non-existing subfolders](http://stackoverflow.com/questions/41835870/fso-returns-non-existing-subfolders) – Martin Jan 25 '17 at 10:04

0 Answers0