2013-06-19 07:45

     $INCLUDE "createfolder.obj"
     DECLARE SUB buttonclick(sender AS QBUTTON)

     DIM form AS QFORM
     DIM button AS QBUTTON
     button.PARENT=form
     button.CAPTION="Create Folder"
     button.left=form.width/4
     button.top=form.height-100
     button.Onclick=buttonclick
     DIM edit AS QEDIT
     edit.PARENT=form
     edit.left=form.width/4
     edit.top=form.height/4
     DIM label AS QLABEL
     label.left=form.width/4
     label.CAPTION="Enter Dir for New Folder"
     label.PARENT=form

     form.SHOWMODAL

     SUB buttonclick(sender AS QBUTTON)
      hwnd=form.handle
      folder$=edit.text

      createnewfolder(folder$)
     END SUB

2013-06-19 07:45