http://dieseyer.de • all rights reserved • © 2011 v11.4

' http://www.source-center.de/forum/member.php?u=2469

strVerz = CreateObject( "Shell.Application" ).BrowseForFolder( 0, "Ordner auswählen", 22, 17 ).Items().Item().Path
MsgBox strVerz, , WScript.ScriptName

http://dieseyer.de • all rights reserved • © 2011 v11.4