display dialog "What's your folder name?" default answer ""
set answer to text returned of result
set deskfolder to path to desktop folder as string
set desktopfolder to alias (deskfolder & "Test_FilesToBeCopiedFrom")
tell application "Finder"
copy every file of desktopfolder to folder answer of desktop
end tell
No comments:
Post a Comment