Here's a function that might help:
function fwMacFileType pPath
local tSaveDir, tShortFileName, tFileList, tLine, tType
--
put the directory into tSaveDir
set the itemdel to "/"
put the last item of pPath into tShortFileName
delete last item of pPath
set the directory to pPath
put the detailed files into tFileList
put lineoffset(cr&urlEncode(tShortFileName)&comma, cr&tFileList&comma)
into tLine
if tLine > 0 then
set the itemdel to comma
put last item of line tLine of tFileList into tType
end if
set the directory to tSaveDir
return tType
end fwMacFileType
--
Richard Gaskin
Fourth World Media Corporation
Developer of WebMerge: Publish any database on any Web site
___________________________________________________________
[EMAIL PROTECTED] http://www.FourthWorld.com
Tel: 323-225-3717 AIM: FourthWorldInc
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution
