!7

cmodule CreateDirectory > DynForm {
  S name, parentDir;
  
  L formParams() {
    ret ll(
      "Directory name", dm_textField('name),
      "Create in", dm_textField('parentDir),
      "", jbutton("Create directory", rThread createIt));
  }
  
  void createIt enter {
    File f = newFile(newFile(parentDir), name);
    if (f.isDirectory())
      ret with infoBox("Directory exists: " + f2s(f));
    if (f.isFile())
      ret with infoBox("It's a file: " + f2s(f));
    mkdirs(f);
    if (f.isDirectory())
      ret with infoBox("Directory created! " + f2s(f));
    infoBox("Couldn't create directory: " + f2s(f));
  }
}