(*  
DateienVerschieben_02d.scpt  
Dieses Script verschiebt Dateien in entsprechende Ordner des Zielordners  
aufgrund der sieben Zeichen am Schluss der Datei-Namen   
© 02.02.15 / Hans Häsler, Châtelard 52, CH-1018 Lausanne  
*) 
 
global targetFolder 
 
-- den Anwender auffordern, den Quellordner zu wählen 
set sourceFolder to (choose folder with prompt "Den Quellordner wählen") 
-- den Anwender auffordern, den Zielordner zu wählen 
set targetFolder to (choose folder with prompt "Den Zielordner wählen") 
tell application "Finder" 
  set allObjects to every item of folder sourceFolder as alias list 
end tell 
-- Wiederholschleife, welche die Objekte des Quellordners zum Handler 'processObject' schickt    
repeat with aObject in allObjects 
  processObject(aObject) 
end repeat 
set AppleScript's text item delimiters to {""} 
-- den Anwender informieren 
display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
 
-- im folgenden Handler wird festgestellt, ob das Objekt ein Ordner oder eine Datei ist;  
-- bei Ordnern wird eine Liste des Inhalts erstellt und die Elemente rekursiv behandelt   
-- (d.h. zum aktuellen Handler geschickt). Dateien werden zum Handler 'processFile' gesandt. 
on processObject(aObject) 
  -- wenn der Pfad mit einem Doppelpunkt endet, ist das Objekt ein Ordner 
  if (aObject as string) ends with ":" then 
    -- die Liste des Inhalts wird erstellt (ohne unsichtbare Dateien) 
    set contentsList to list folder aObject without invisibles 
     
    -- dies ist das rekursive Teil: die Wiederholschleife schickt alle Objekte zum Handler,  
    -- in welchem sie sich selbst befindet 
    repeat with anItem in contentsList 
      set objPath to ((aObject as Unicode text) & anItem) 
      processObject(objPath as alias) 
    end repeat 
     
    -- wenn das Objekt eine Datei ist ... 
  else 
    tell application "Finder" 
      -- den Namen der Datei ...  
      set fullName to name of document file (aObject as string) 
    end tell 
    -- ... dann werden die Pfade und der Dateiname dem Handler 'processFile' übergeben 
    processFile(aObject, fullName) 
  end if 
end processObject 
 
-- die aktuelle Datei behandeln 
on processFile(aObject, fullName) 
  -- den Ordnernamen ausziehen  
  set folName to text -11 thru -5 of fullName 
  -- und auch den vollen Pfad zum Unterordner 
  set curFolder to (targetFolder & folName) as string 
  tell application "Finder" 
    -- wenn der Ordner vorhanden ist ... 
    if (exists curFolder) then 
      -- ... versuchen, die aktuelle Datei hineinzuverschieben 
      try 
        move file aObject to folder curFolder with replacing 
      end try 
    else 
      -- sonst den Handler aufrufen, welcher auch die Unterordner mit einbezieht 
      set curFolder to my getPath(targetFolder, folName) 
      if curFolder is not "" then 
        tell application "Finder" 
          try 
            move file aObject to folder curFolder with replacing 
          end try 
        end tell 
      end if 
    end if 
  end tell 
end processFile 
 
on getPath(targetFolder, folName) 
  set curFolder to do shell script "mdfind -onlyin '" & POSIX path of targetFolder & "' -name '" & folName & "'" 
  try 
    set tmpPath to POSIX file curFolder 
  on error 
    return "" 
  end try 
  set pathString to tmpPath as Unicode text 
   
  set AppleScript's text item delimiters to ":Users:" 
  set sepItems to every text item of pathString 
  set nItems to count sepItems 
  if nItems is 1 then 
    return "" 
  else if nItems is 2 then 
    return pathString 
  else 
    repeat with n from 2 to nItems 
      set curItem to item n of sepItems 
      if curItem ends with (":" & folName) then 
        tell application "Finder" 
          set curPath to (item 1 of sepItems & ":Users:" & curItem) 
        end tell 
        set AppleScript's text item delimiters to {""} 
        return curPath 
      end if 
    end repeat 
  end if 
end getPath 

(*  
DateienVerschieben_03d.app  
Dieses Script verschiebt Dateien in entsprechende Ordner des Zielordners  
aufgrund der sieben Zeichen am Schluss der Datei-Namen   
© 04.02.15 / Hans Häsler, Châtelard 52, CH-1018 Lausanne  
*) 
 
global targetFolder 
 
-- einen Dialog zeigen, falls der Anwender einen Doppelklick auf das Droplet macht    
on run 
  display dialog "Ordner oder Dateien auf dem Icon    
dieses Droplets deponieren." buttons "OK" default button 1 with icon 0 
end run 
 
-- der 'open handler', welcher auf das Fallenlassen von Objekten reagiert  
on open allObjects 
  -- den Anwender auffordern, den Zielordner zu wählen 
  set targetFolder to (choose folder with prompt "Den Zielordner wählen") 
  -- Wiederholschleife, welche die gedroppten Objekte zum Handler 'processObject' schickt    
  repeat with aObject in allObjects 
    processObject(aObject) 
  end repeat 
  set AppleScript's text item delimiters to {""} 
  -- den Anwender informieren 
  display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
end open 
 
-- im folgenden Handler wird festgestellt, ob das Objekt ein Ordner oder eine Datei ist;  
-- bei Ordnern wird eine Liste des Inhalts erstellt und die Elemente rekursiv behandelt   
-- (d.h. zum aktuellen Handler geschickt). Dateien werden zum Handler 'processFile' gesandt. 
on processObject(aObject) 
  -- wenn der Pfad mit einem Doppelpunkt endet, ist das Objekt ein Ordner 
  if (aObject as string) ends with ":" then 
    -- die Liste des Inhalts wird erstellt (ohne unsichtbare Dateien) 
    set contentsList to list folder aObject without invisibles 
     
    -- dies ist das rekursive Teil: die Wiederholschleife schickt alle Objekte zum Handler,  
    -- in welchem sie sich selbst befindet 
    repeat with anItem in contentsList 
      set objPath to ((aObject as Unicode text) & anItem) 
      processObject(objPath as alias) 
    end repeat 
     
    -- wenn das Objekt eine Datei ist ... 
  else 
    tell application "Finder" 
      -- den Namen der Datei ...  
      set fullName to name of file aObject 
    end tell 
    -- ... dann werden die Pfade und der Dateiname dem Handler 'processFile' übergeben 
    processFile(aObject, fullName) 
  end if 
end processObject 
 
-- die aktuelle Datei behandeln 
on processFile(aObject, fullName) 
  -- den Ordnernamen ausziehen  
  set folName to text -11 thru -5 of fullName 
  -- und auch den vollen Pfad zum Unterordner 
  set curFolder to (targetFolder & folName) as string 
  tell application "Finder" 
    -- wenn der Ordner vorhanden ist ... 
    if (exists curFolder) then 
      -- ... versuchen, die aktuelle Datei hineinzuverschieben 
      try 
        move file aObject to folder curFolder with replacing 
      end try 
    else 
      -- sonst den Handler aufrufen, welcher auch die Unterordner mit einbezieht 
      set curFolder to my getPath(targetFolder, folName) 
      if curFolder is not "" then 
        tell application "Finder" 
          try 
            move file aObject to folder curFolder with replacing 
          end try 
        end tell 
      end if 
    end if 
  end tell 
end processFile 
 
on getPath(targetFolder, folName) 
  set curFolder to do shell script "mdfind -onlyin '" & POSIX path of targetFolder & "' -name '" & folName & "'" 
  try 
    set tmpPath to POSIX file curFolder 
  on error 
    return "" 
  end try 
  set pathString to tmpPath as Unicode text 
   
  set AppleScript's text item delimiters to ":Users:" 
  set sepItems to every text item of pathString 
  set AppleScript's text item delimiters to {""} 
  set nItems to count sepItems 
  if nItems is 1 then 
    return "" 
  else if nItems is 2 then 
    return pathString 
  else 
    repeat with n from 2 to nItems 
      set curItem to item n of sepItems 
      if curItem ends with (":" & folName) or curItem ends with (":" & folName & return) then 
        set curPath to (item 1 of sepItems & ":Users:" & curItem) as string 
        return curPath 
      end if 
    end repeat 
  end if 
end getPath 

(*   
DateienVerschieben_04d.app   
Dieses Script verschiebt Dateien in entsprechende Ordner des Zielordners   
aufgrund der sieben Zeichen am Schluss der Datei-Namen    
© 05.02.15 / Hans Häsler, Châtelard 52, CH-1018 Lausanne   
*) 
 
global targetFolder 
 
-- einen Dialog zeigen, falls der Anwender einen Doppelklick auf das Droplet macht     
on run 
  display dialog "Ordner oder Dateien auf dem Icon     
dieses Droplets deponieren." buttons "OK" default button 1 with icon 0 
end run 
 
-- der 'open handler', welcher auf das Fallenlassen von Objekten reagiert   
on open allObjects 
  -- den Anwender auffordern, den Zielordner zu wählen  
  set targetFolder to (choose folder with prompt "Den Zielordner wählen") 
  -- Wiederholschleife, welche die gedroppten Objekte zum Handler 'processObject' schickt     
  repeat with aObject in allObjects 
    processObject(aObject) 
  end repeat 
  set AppleScript's text item delimiters to {""} 
  -- den Anwender informieren  
  display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
end open 
 
-- im folgenden Handler wird festgestellt, ob das Objekt ein Ordner oder eine Datei ist;   
-- bei Ordnern wird eine Liste des Inhalts erstellt und die Elemente rekursiv behandelt    
-- (d.h. zum aktuellen Handler geschickt). Dateien werden zum Handler 'processFile' gesandt.  
on processObject(aObject) 
  -- wenn der Pfad mit einem Doppelpunkt endet, ist das Objekt ein Ordner  
  if (aObject as string) ends with ":" then 
    -- die Liste des Inhalts wird erstellt (ohne unsichtbare Dateien)  
    set contentsList to list folder aObject without invisibles 
     
    -- dies ist das rekursive Teil: die Wiederholschleife schickt alle Objekte zum Handler,   
    -- in welchem sie sich selbst befindet  
    repeat with anItem in contentsList 
      set objPath to ((aObject as Unicode text) & anItem) 
      processObject(objPath as alias) 
    end repeat 
     
    -- wenn das Objekt eine Datei ist ...  
  else 
    tell application "Finder" 
      -- den Namen der Datei ...   
      set fullName to name of file aObject 
    end tell 
    -- ... dann werden die Pfade und der Dateiname dem Handler 'processFile' übergeben  
    processFile(aObject, fullName) 
  end if 
end processObject 
 
-- die aktuelle Datei behandeln  
on processFile(aObject, fullName) 
  -- den Ordnernamen ausziehen   
  set folName to text -11 thru -5 of fullName 
  -- und auch den vollen Pfad zum Unterordner  
  set curFolder to (targetFolder & folName) as string 
  tell application "Finder" 
    -- wenn der Ordner vorhanden ist ...  
    if (exists curFolder) then 
      -- ... versuchen, die aktuelle Datei hineinzuverschieben  
      try 
        move file aObject to folder curFolder with replacing 
      end try 
    else 
      -- sonst den Handler aufrufen, welcher auch die Unterordner mit einbezieht  
      set curFolder to my getPath(targetFolder, folName) 
      if curFolder is not "" then 
        try 
          move file aObject to folder curFolder with replacing 
        end try 
      end if 
    end if 
  end tell 
end processFile 
 
on getPath(targetFolder, folName) 
  set curFolder to do shell script "mdfind -onlyin '" & quoted form of POSIX path of targetFolder & "' -name '" & folName & "'" 
  try 
    set tmpPath to POSIX file curFolder 
  on error 
    return "" 
  end try 
  set pathString to tmpPath as Unicode text 
   
  set AppleScript's text item delimiters to ":Users:" 
  set sepItems to every text item of pathString 
  set AppleScript's text item delimiters to {""} 
  set nItems to count sepItems 
  if nItems is 1 then 
    return "" 
  else if nItems is 2 then 
    return pathString 
  else 
    repeat with n from 2 to nItems 
      set curItem to item n of sepItems 
      if curItem ends with (":" & folName) then 
        set curPath to (item 1 of sepItems & ":Users:" & curItem) as string 
        return curPath 
      else if curItem ends with (":" & folName) or curItem ends with (":" & folName & return) then 
        set curPath to (item 1 of sepItems & ":Users:" & (text 1 thru -2 of curItem)) as string 
        return curPath 
      end if 
    end repeat 
  end if 
end getPath