tell application "iTunes"
if not (exists browser window "iTunes") then return
set selectedPlaylist to view of browser window "iTunes"
set trackLocations to location of tracks of selectedPlaylist
end tell
set destinationFolder to choose folder
tell application "Finder" to duplicate trackLocations to destinationFolder