Code:
var %dir = $sdir($mircdir,Choose new directory)
if (%dir) {
  writeini $mircdirsystem\system.ini newdir dir %dir
}
else {
  ; User pressed Cancel
}