' 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