Help in Applescript Mail option

Question

Hi Forum,
I'm using tis applescript, to check the folder for files and sent mail via applescript.
It works quiet good. The problem is if the document does not contain any files, also the mail is sent to the receipient.
I'm requesting forum , to correct this applescript, to send the mail only if the files are found inside the folder.
on run
          set myFolder to "/Users/wander5/Desktop/QuarkRescueFolder"
          set {TID, text item delimiters} to {text item delimiters, linefeed}
          tell application "Finder" to set myFiles to name of files of (POSIX file myFolder as alias)
          set newNames to paragraphs of (do shell script "sed 's/\\(.*\\)\\((.*)\\)/\\2 \\1/' <<< " & quoted form of (myFiles as text))
          repeat with i from 1 to count myFiles
                    tell application "System Events" to set name of (first file of folder myFolder whose name is (item 1 of myFiles)) to (item 1 of newNames)
          end repeat
          set text item delimiters to TID
          set fileList to list folder myFolder without invisibles
          repeat with tFile in fileList
                    set recipientName to "Wander5"
                    set recipientAddress to "[email protected]"
                    set theSubject to "Please check Files has been completly copied from server"
                    set theContent to "check files have been copied"
                    tell application "Mail"
  # # Create the message
                              set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
  ##Set a recipient
                              tell theMessage
  make new to recipient with properties {name:recipientName, address:recipientAddress}
  ##Send the Message
                                        send
                              end tell
                    end tell
  ##end tell
          end repeat
end run
Many thanks,

Answer 1

I didn't test but don't you just need to test fileList's length/count before you loop the list…?
on run
          set myFolder to "/Users/wander5/Desktop/QuarkRescueFolder"
          set {TID, text item delimiters} to {text item delimiters, linefeed}
          tell application "Finder" to set myFiles to name of files of (POSIX file myFolder as alias)
          set newNames to paragraphs of (do shell script "sed 's/\\(.*\\)\\((.*)\\)/\\2 \\1/' <<< " & quoted form of (myFiles as text))
          repeat with i from 1 to count myFiles
                    tell application "System Events" to set name of (first file of folder myFolder whose name is (item 1 of myFiles)) to (item 1 of newNames)
          end repeat
          set text item delimiters to TID
          set fileList to list folder myFolder without invisibles
          if length of fileList > 0 then -- Its not an empty list…
                    repeat with tFile in fileList
                              set recipientName to "Wander5"
                              set recipientAddress to "[email protected]"
                              set theSubject to "Please check Files has been completly copied from server"
                              set theContent to "check files have been copied"
                              tell application "Mail"
  # # Create the message
                                        set theMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
  ##Set a recipient
                                        tell theMessage
  make new to recipient with properties {name:recipientName, address:recipientAddress}
  ##Send the Message
                                                  send
                                        end tell
                              end tell
                    end repeat
          end if
end run