the detailed files
    Richard Gaskin 
    ambassador at fourthworld.com
       
    Wed Jul 31 04:02:01 EDT 2002
    
    
  
Simon Lord wrote:
 
> Is it possible to get the detailed files of a particular file
> only?  How?
Nothing built-in, but this FileInfo function might help:
on mouseUp
  answer file "Select a file:"
  put FileInfo(it)
end mouseUp
function FileInfo pPath
  local tFile, tSaveDir, tFiles, tFileInfo
  set the itemdel to "/"
  put urlEncode(last item of pPath) into tFile
  delete last item of pPath
  put the directory into tSaveDir
  set the directory to pPath
  put the detailed files into tFiles
  set the directory to tSaveDir
  get lineoffset(tFile, tFiles)
  if it > 0 then
    put line it of tFiles into tFileInfo
    set the itemdel to ","
    delete item 1 of tFileInfo
    return tFileInfo
  end if
end FileInfo
-- 
 Richard Gaskin 
 Fourth World Media Corporation
 Custom Software and Web Development for All Major Platforms
 Developer of WebMerge 2.0: Publish any Database on Any Site
 ___________________________________________________________
 Ambassador at FourthWorld.com       http://www.FourthWorld.com
 Tel: 323-225-3717                       AIM: FourthWorldInc
    
    
More information about the metacard
mailing list