ftping and filetype property

[Richard Gaskin]

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
 ___________________________________________________________
 Ambassador at FourthWorld.com       http://www.FourthWorld.com
 Tel: 323-225-3717                       AIM: FourthWorldInc