SC, Image Files and MPI

Folder Drag and Drop

So far our project only deals with file drops.
It checks to find out if any of the files dropped are images and then adds them to the list. 


put item 1 of dragData(x, "hfs ",type ) into tFileType

if   AltIsGraphicFile( tFileType,tFilePath) then put CR& tFilePath after tImageList


We will now try and find out if there are folders in a drop. If there are
dragData(x, "hfs ",type ) with return fold,MACS where x is the number when we loops thorugh all the dragFlavors. So we can: 
put item 1 of dragData(x, "hfs ",type ) into tFileType

iftFileType ="fold" then put CR&listFolderImages(tFilePath) after tImageList

if   AltIsGraphicFile( tFileType,tFilePath) then put CR& tFilePath after tImageList

We do not have a function listFolderImages yet but we should be able to look at the script of our Add Folder... button to help. 

function listFolderImages pFilePath  

   if last char of pFilePath is not colon then put colon after pFilePath

   put Dir (pFilePath,false,true) into tfileList

   repeat with x =  the number of lines in tfilelist down to 1

      if not isGraphicFile(line x of tFileList) then delete line x of tfilelist

   end repeat

   return tfilelist

end listFolderImages


We now should have a mouseDrop script that handles drops of mixed multiple files and folders. You should give it a test.