'BROWSEINFO.ulFlags values
BIF_RETURNONLYFSDIRS    = &H1 'only file system directories
BIF_DONTGOBELOWDOMAIN  = &H2  'no network folders below domain level
BIF_STATUSTEXT  = &H4         'include status area for callback
BIF_RETURNFSANCESTORS  = &H8  'only return file system ancestors
BIF_EDITBOX  = &H10           'add edit box 
BIF_NEWDIALOGSTYLE  = &H40    'use the new dialog layout
BIF_UAHINT  = &H100
BIF_NONEWFOLDERBUTTON = &H200 'hide new folder button
BIF_NOTRANSLATETARGETS = &H400 'return lnk file
BIF_USENEWUI  = BIF_NEWDIALOGSTYLE Or BIF_EDITBOX
BIF_BROWSEFORCOMPUTER  = &H1000 'only return computers
BIF_BROWSEFORPRINTER  = &H2000 'only return printers
BIF_BROWSEINCLUDEFILES = &H4000 'browse for everything
BIF_SHAREABLE  = &H8000 'sharable resources, requires BIF_USENEWUI



Set Args = WScript.Arguments
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
set g = fso.getfolder(args(1))
Set h = fso.GetFolder(Args(0))
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.BrowseForFolder(0, "In Welke Container Folder moet de Shell Folder """ + g.name + """ worden gemaakt?" + vbcrlf +"KLIK OP ""Shellfolders"" voor subdirectories!!",BIF_USENEWUI   + BIF_VALIDATE + BIF_RETURNONLYFSDIRS + BIF_NOTRANSLATETARGETS, _
	Args(0) )
if (objFolder is nothing) then
        WScript.quit
end if

Set f = fso.CreateFolder(objFolder.self.path + "\" + g.name)
f.Attributes = f.Attributes Or 1

Set f = fso.OpenTextFile(objFolder.self.path + "\" + g.name + "\Desktop.ini", 2, True)
 f.Write "[.ShellClassInfo]" + vbCrLf
 f.Write "CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}" + vbCrLf
 f.Write "Flags=2" + vbCrLf
f.Close

Set f = fso.GetFile(objFolder.self.path + "\" + g.name + "\Desktop.ini")
f.Attributes = f.Attributes Or 2
f.Attributes = f.Attributes Or 4

Set TL = WSHShell.CreateShortcut(objFolder.self.path + "\" + g.name + "\Target.lnk")
TL.TargetPath = Args(1)

'USE JSBTOOLS ICONFOLDER FOR PickIcondlg-- see http://jc.bellamy.free.fr/fr/explorer.html
jcbCOM="jcb.tools"
set jcbtool = wscript.CreateObject(jcbCOM,"event_")
selectedicon = jcbtool.PickIcon("%systemroot%\system32\SHELL32.dll",112)
' ******* TL.IconLocation = "%SystemRoot%\system32\SHELL32.dll,112"
TL.IconLocation = selectedicon 
TL.Save