Folder size

[Chris Carroll-Davis]

Eric -

thanks very much!  Yes, this is exactly what I need to get going.

The reason I need the routine is to burn a folder to a cd.  I now  
have that working on mac using applescript and shell commands - but  
before long I will have to have a go at windows (gulp!) so this code  
will save me hours!

Thanks,

Chris



On 13 Jul 2005, at 09:44, Eric Chatonet wrote:

> Hello Chris,
>
> Here is a piece of code (from Frederic Rinaldi I think) which can  
> get you started:
> Params:
> theFolder: path to the root folder you want to scan
> addFullPath : boolean to get absolute (true) or relative path (false)
> allInfos : boolean to get all information (true) or path only (false)
>
> item 2 & 3 in the returned list with allInfos=true are the file  
> size (data fork with Mac OS) and the resource fork size (Mac OS  
> only, 0 for others)
>
> function AllFiles theFolder,addFullPath,allInfos
>   --returns full path of all enclosed files
>   local startFolder
>   set cursor to busy
>   if last char of theFolder is not "/"
>   then put "/" after theFolder
>   if startFolder is empty
>   then put theFolder into startFolder
>
>   set the defaultFolder to theFolder
>   if the result is not empty
>   then
>     beep
>     answer error "Répertoire inexistant:" & return & return &  
> theFolder titled "Erreur"
>     exit to top
>   end if
>
>   put the detailed files into filesList
>   filter filesList without ".*"
>   filter filesList without "Icon%0D*"
>   filter filesList without "*,MACSfdrp" -- remove folder aliases
>
>   put the folders into foldersList
>   filter foldersList without ".*"
>
>   repeat for each line loopFolder in foldersList
>     put AllFiles(thefolder & loopFolder & "/",addFullPath,allInfos)  
> & return after resultList
>   end repeat
>
>   repeat with i=number of lines of filesList down to 1
>     -- set cursor to busy
>     if addFullPath
>     then put MyURLEncode(theFolder) before line i of filesList
>     if allInfos = false
>     then put item 1 of line i of filesList into line i of filesList
>   end repeat
>
>   get resultList & filesList
>   sort lines of it
>   return word 1 to -1 of it -- strip empty lines
> end AllFiles
> ------------------
> function MyURLEncode what
>   put URLEncode(what) into what
>   replace "%2F" with "/" in what
>   return what
> end MyURLEncode
>
> Le 13 juil. 05 à 10:15, Chris Carroll-Davis a écrit :
>
>
>> Iit's for both Mac & PC really - but mainly mac at the moment.   
>> Since posting, I've found that I can get the info I need with  
>> applescript - "Tell application "Finder" ... return physical size  
>> of folder "Folderpath"  ... End tell", but of course that's no  
>> good for PC.  I could look at your suggestion, but I need this to  
>> run on any machine - i.e. I can't rely on any other software being  
>> installed.   :-(
>>
>> Looks like I might have to bite the bullet and do it with  
>> transcript eventually. Yuk.  I know for a decent programmer it is  
>> an easy job, but I'm getting old and brain is slow!
>>
>> Thanks
>>
>> Chris
>>
>>>
>>>
>>>> Hello folks -
>>>>
>>>> Anyone know if there is an easy way in Rev of getting the size of a
>>>> folder (together with all it's sub-folders).  I know I can do a  
>>>> loop
>>>> using "detailed files" and "detailed folders" but that seems a bit
>>>> long-winded, and I'm sure I'd be re-inventing the wheel!  Is there
>>>> another way, or is there an existing function anywhere that I  
>>>> can pinch?
>>>>
>
>
> Best Regards from Paris,
>
> Eric Chatonet.
> ----------------------------------------------------------------
> So Smart Software
>
> For institutions, companies and associations
> Built-to-order applications: management, multimedia, internet, etc.
> Windows, Mac OS and Linux... With the French touch
>
> Free plugins and tutorials on my website
> ----------------------------------------------------------------
> Web site        http://www.sosmartsoftware.com/
> Email        eric.chatonet at sosmartsoftware.com/
> Phone        33 (0)1 43 31 77 62
> Mobile        33 (0)6 20 74 50 86
> ----------------------------------------------------------------
>
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your  
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution
>