set theFromFolderPosix to quoted form of POSIX path of (choose folder with prompt "From")
set theToFolderPosix to quoted form of POSIX path of (choose folder with prompt "To")
do shell script ﾂ
"for aFile in " & theFromFolderPosix & "*; " & ﾂ
"do; " & ﾂ
"if [ -f \"$aFile\" ]; then; " & ﾂ
"mv \"$aFile\" " & theToFolderPosix & "; " & ﾂ
"fi; " & ﾂ
"done"

てゆうのも。