Needing script to move files with name that starts with

Question

Here is part of the script that takes a excel file for the list to duplicate files from one folder the another. I would like it to use file name starts with instead exact file name. If I can get this to work I will not have to have a try for .jpg and a seperate try for .eps
            tell application "Finder"
                try
                    duplicate (sourceFolder & theItem & ".jpg" as string) to destFolder with replacing
                on error
                    do shell script "echo " & theItem & ">> $HOME/Desktop/NotFound.txt"
                end try
                try
                    duplicate (sourceFolder & theItem & ".eps" as string) to destFolder with replacing
                on error
                    do shell script "echo " & theItem & ">> $HOME/Desktop/NotFound.txt"
                end try
            end tell
Thanks

Answer 1

Ok here is the script that I've been using for a couple of years now with no problems, until I upgraded. Don't know what happened, because I cant even use it on a older system that we have. The error I get is when it tries to get the value of selection from Excel. It times out with no values. Thanks for any help!
set sourceFolder to choose folder with prompt "Select the folder that contains images to move."
set destFolder to choose folder with prompt "Select the destination folder"
if sourceFolder is not destFolder then my moveImageFiles(sourceFolder as string, destFolder)
on moveImageFiles(sFolder, dFolder)
    script o
        property valuesList : {}
    end script
   tell application "Microsoft Excel" to set o's valuesList to value of the selection
    if class of o's valuesList is not list then return -- not multiple selection
    set tc to (count o's valuesList)
    set dFolder to quoted form of POSIX path of dFolder
    set errorFile to quoted form of POSIX path of (sFolder & "filesNotFound or NotMoved.txt")
    do shell script "/bin/rm " & errorFile & " > /dev/null 2>&1 &" -- remove the error file (if it exists)
    repeat with i from 1 to tc
        repeat with thisValue in (get item i of o's valuesList)
            if contents of thisValue is not "" then -- not a blank cell
                set tFile to quoted form of POSIX path of (sFolder & thisValue)
                try
                    do shell script "shopt -s nocaseglob; /bin/mv -f " & tFile & "* " & dFolder
                end try
            end if
        end repeat
    end repeat   
    do shell script "/usr/bin/open -b com.apple.textedit " & errorFile & " > /dev/null 2>&1 &"
end moveImageFiles