get kind of every item of Quelle

tell application "Finder"
    set sourceFolder to choose folder
    set destFolder to choose folder
    my moveFilesFrom(sourceFolder, destFolder)
end tell

on moveFilesFrom(thisFolder, destFolder)
    tell application "Finder"
        set filesToMove to every file of thisFolder
        repeat with theFile in filesToMove
            if "JPG" is in (kind of theFile) then ¬
                move theFile to folder destFolder
        end repeat
        set subFolders to (every folder of thisFolder)
        repeat with aFolder in subFolders
            my moveFilesFrom(aFolder)
        end repeat
    end tell
end moveFilesFrom