This seems to work for me on my Mac (you could either grab f if there's only one, or else offer a choice if multiple):
Strict Local folders$[] = LoadDir("/Users") For Local f$ = EachIn folders If f[0..1] <> "." And f <> "Shared" Then Print f NextHowever, my OS X experience/familiarity isn't up to that for Windows, so other stuff that might show up the Users folder (on other systems that I'm unaware of) might need to be filtered out (or you might want to included "Shared"?).