(*  
DateienKopieren_01d.app  
Dieses Script kopiert Dateien in entsprechende Ordner des Zielordners  
aufgrund der drei Ziffern am Schluss der Datei-Namen   
© 29.01.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 
  set targetFolder to (choose folder with prompt "Den Zielordner wählen") as Unicode text 
  set AppleScript's text item delimiters to " " 
  -- 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 -7 thru -5 of fullName 
  -- und auch den vollen Pfad zum Unterordner 
  set curFolder to targetFolder & folName 
  tell application "Finder" 
    -- wenn der Ordner nicht vorhanden ist ... 
    if not (exists curFolder) then 
      -- den Ordner erzeugen 
      make new folder at targetFolder with properties {name:folName} 
    end if 
    -- die aktuelle Datei hineinkopieren 
    try 
      move file aObject to curFolder with replacing 
    end try 
  end tell 
end processFile 

-- den Ordnernamen ausziehen  
set folName to text -7 thru -5 of fullName 

-- den Ordnernamen ausziehen  
set folName to text -11 thru -5 of fullName 

-- wenn der Ordner nicht vorhanden ist ... 
if not (exists curFolder) then 
  -- den Ordner erzeugen 
  make new folder at targetFolder with properties {name:folName} 
end if 

try 
  move file aObject to curFolder with replacing 
end try 

property allPaths : {} 
 
set targetFolder to (choose folder) 
 
getFolders(targetFolder) 
 
on getFolders(targetFolder) 
  tell application "Finder" 
    set folderList to every folder in targetFolder 
    repeat with curSubfolder in folderList 
      set end of allPaths to curSubfolder as Unicode text 
      my getFolders(curSubfolder) 
    end repeat 
  end tell 
end getFolders 
 
allPaths 

set AppleScript's text item delimiters to {":"} 
repeat with n from 1 to count of allPaths 
  set curFolder to item n of allPaths 
  if text item -2 of curFolder is folName then 
    try 
      move file aObject to folder curFolder with replacing 
    end try 
    exit repeat 
  end if 
end repeat 
set AppleScript's text item delimiters to {""} 

set end of allNames to name of curSubfolder 

set targetFolder to (choose folder with prompt "Den Zielordner wählen") as Unicode text 
set folName to "CG-0006" 
 
set curFolder to do shell script "mdfind -onlyin '" & POSIX path of targetFolder & "' -name '" & folName & "'" 
 
set tmpPath to POSIX file curFolder 

(*  
DateienKopieren_02d.app  
Dieses Script verschiebt Dateien in entsprechende Ordner des Zielordners  
aufgrund der sieben Zeichen am Schluss der Datei-Namen   
© 31.01.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 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 

Zielordner 
  001 
    CG-0001 
  002 
    CG-0002 
  003 
    CG-0003 
  004 
    CG-0004 
  CG-0005 
  CG-0006 
  CG-0007