flarn2006

tell application "Finder"
    set theFolder to the target of the front Finder window
    set dlgResult to display dialog "What file name?" default answer ""
    set fileName to the text returned of dlgResult
    if the button returned of dlgResult is "OK" and fileName is not "" then
        set theFile to make new file in theFolder
        set the name of theFile to fileName
    end if
end tell