property sourceFolder : "SnowLeo:Users:uwe:Documents:Hotfolder:" 
property targetFolder : "SnowLeo:Users:uwe:Documents:Zielordner:" 
 
on idle 
  listObjects() 
  return 5 
end idle 
 
on listObjects() 
  set objectList to list folder sourceFolder without invisibles 
  if (count of objectList) is greater than 1 then 
    set curObject_1 to (sourceFolder & item 1 of objectList) as alias 
    set curObject_2 to (sourceFolder & item 2 of objectList) as alias 
    if folder of (info for curObject_1) then 
      set folName to item 1 of objectList 
      set fileName to item 2 of objectList 
      if fileName ends with ".pdf" then 
        moveFolder(curObject_1) 
        try 
          tell application "Finder" to set name of curObject_2 to folName & ".pdf" 
        end try 
        moveFile(curObject_2, folName) 
      end if 
    else if folder of (info for curObject_2) then 
      set folName to item 2 of objectList 
      set fileName to item 1 of objectList 
      set curObject to sourceFolder & item 2 of objectList 
      if fileName ends with ".pdf" then 
        moveFolder(curObject_2) 
        try 
          tell application "Finder" to set name of curObject_1 to folName & ".pdf" 
        end try 
        moveFile(curObject_1, folName) 
      end if 
    end if 
  end if 
end listObjects 
 
on moveFolder(x) 
  try 
    tell application "Finder" to move folder x to folder targetFolder with replacing 
  end try 
end moveFolder 
 
on moveFile(x, f) 
  try 
    tell application "Finder" to move file x to folder (targetFolder & f) with replacing 
  end try 
end moveFile