break on 



$f = createobject("KiXtart.Form") 



$TextBox1 = $f.TextBox("Fill in foldername",20,20,200,20) 



$button1 = $f.Button("Browse",20,80,80,20) 

$button1.onclick = "$$TextBox1.Text = Getpath()" 



$Button3 = $f.Button("Create",120,80,80,20) 

$Button3.onclick = "MD $$textbox1.text " ; or whatever you want...



$f.Show 



while $f.Visible 

    $_ = execute($f.DoEvents) 

loop 

exit 1 



function Getpath() 

    dim $System, $Dialog, $Path, $ 

    $System = createobject("Kixtart.System") 

    $Dialog = $System.FolderBrowserDialog() 

    $Dialog.RootFolder = 17 

    $ = $Dialog.ShowDialog 

    $Path = $Dialog.SelectedPath 

    if not $Path exit 1 endif 

    $GetPath = $Path 

endfunction 

Code:
 



It isn't only Kixtart but also Kixforms. You have to download the  Kixforms library and register the kixforms dll. 

You will find more information about Kixforms at www.kixforms.org







Good luck!      





_________________________

Co