Preserve Aliases when move files to different drive

Question

I have several folders and files that I want to move from my laptop's internal hard drive to an external hard drive. I also have several aliases for these files that I want to KEEP on the internal drive. Is there any way to MOVE the folders and files to the external hard drive while preserving the aliases, so that when I click on the laptop aliases they will open the external hard drive files? I already found a discussion that shows how to MOVE files to the external drive as apposed to copying, but when I did it (using command drag), the alias residing on my laptop no longer worked.

Answer 1

Hi,
These scripts work, if the filename contains always three
words separated by a space, otherwise the file will not be moved.
The script will overwrite files that already exists in the destination folder.
Here's the script that uses a shell
set theFolder to "" -- drag/drop your folder between quotes
set destination to "" -- drag/drop the folder "folder importen letters" between quotes
do shell script "dest=" & (quoted form of destination) & "
/usr/bin/find " & (quoted form of theFolder) & " -type f -maxdepth 1 \! -name '.*' -print0 | while read -d $'\0' f; do
name=${f##*/}; folderName=${name%% *}; year=${name##* };
if [[ "$year" = . ]]; then year=${year%%.*};fi
if [ -d "$dest/$folderName/$year" ];then
/bin/mv -f "$f" "$dest/$folderName/$year/$name"
fi
done"
or this script if you prefer the Finder
set theFolder to (POSIX file "") as string -- drag/drop your folder between quotes
set destination to (POSIX file "") as alias -- drag/drop the folder "folder importen letters" between quotes
tell application "Finder"
repeat with tFile in (get files in folder theFolder)
set {folderName, t_year} to my getTheseNames(name of tFile)
if t_year is not "" then try
move tFile to folder t_year of folder folderName of destination with replacing
delete tFile -- because the command move, doesn't move on other volume, it duplicate
end try
end repeat
end tell
on getTheseNames(tname)
set oldTID to text item delimiters
set text item delimiters to " "
try
tell tname to set {t_base, t_end} to {text item 1, text item 3}
set text item delimiters to "."
set t_end to text item 1 of t_end -- text before the period = the year
on error
return {"", ""}
end try
set text item delimiters to oldTID
return {t_base, t_end}
end getTheseNames