move files in to a folder

Hi All,

Please see the code below:

set FilesFolder to choose folder with prompt “Select the folder of files”
set Archive to choose folder with prompt “Select the master folder with the destination folders”

tell application “Finder”
set TheFolders to every folder of Archive
set TheFiles to every file of FilesFolder
set TheFolders to (TheFolders as string) & “pdffiles:” as string
end tell

repeat with TheFiles in TheFolders
tell application “Finder” to duplicate TheFiles to TheFolders
end repeat

I want to move every files in “TheFolders” and after move I want to remane “pdffiles” folder to “PDFs” only. Can some body help me.