this script is one of my first. some1 asked me to make this script for them, so i thought some1 here might find it useful. this dialog lets u look for file that you want, then it write the names of all the folders inside that folder to a text file. i know this is simple, and can probably b made far better, but as i am only bginning at scripting.

dialog oh {
  title "File Finder"
  size -1 -1 150 150
  button "Find File",2, 5 15 100 20
  button "Write to File",3, 5 35 100 20
  text "Use Find File, to find your file, then use it in write to file",5, 5 55 120 40
}
on *:dialog:oh:sclick:*: {
  if ($did == 2) {
    dialog -m oh1 oh1
  }
  if ($did == 3) {
    dialog -m oh2 oh2
  }
}
dialog oh1 {
  title "File Finder"
  size 393 244 140 100
  button "Find File",2, 5 15 100 20
  edit "",3, 5 35 100 20
  edit %file,10, 5 55 120 20, autohs
}
dialog oh2 {
  title "File Finder"
  size 640 244 320 140
  edit "",2, 5 25 300 20
  button "Write to File",3, 155 85 100 20
  edit "",5, 5 75 100 20
  text "Document name",4, 5 55 100 20
  text "File name",7, 5 5 100 20
}
on *:dialog:oh1:sclick:*: {
  if ($did == 2) {
    msg $chan #fox $findfile(c:\,$did(3,1,text) $+ *.*,1,)
    set %file $findfile(c:\,$did(3,1,text) $+ *.*,1,)
    did -r oh1 10
    did -a oh1 10 %file 
  }
}
on *:dialog:oh2:sclick:*: {
  if ($did == 3) {
    $findfile(c:\ $+ $did(2),*.*,0,write $did(5) $1-)
  }
}