On Aug 12, 2009, at 2:37 PM, Tereza Snyder wrote:
Thanks Trevor for your noCommentsNeededOnAccountOfLongVariableNames
script. The main mystery, "How do I zip a folder?" is solved!
:-)
I forgot to include one supporting function that is called:
filesFilesInFolder. Here it is.
Regards,
--
Trevor DeVore
Blue Mango Learning Systems
www.bluemangolearning.com - www.screensteps.com
==================
function fileFilesInFolder pFolder, pFullPath, pIncludeHidden
local theDefault,theFile,theFiles,theFullFiles
if there is not a folder pFolder then return empty
if last char of pFolder is not slash then put slash after pFolder
put the defaultfolder into theDefault
set the defaultfolder to pFolder
put the files into theFiles
set the defaultfolder to theDefault
if pIncludeHidden is not true then
filter theFiles without ".*"
else
filter theFiles without "..*"
end if
if pFullPath then
repeat for each line theFile in theFiles
put pFolder & theFile & cr after theFullFiles
end REPEAT
delete last char of theFullFiles
return theFullFiles
else
return theFiles
end if
end fileFilesInFolder
si
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
