home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / FLYDIR.ZIP / FLYDIR.PPS < prev    next >
Text File  |  1995-01-09  |  1KB  |  44 lines
  1. String LSTFile,DIRFile,DIRSub,CNames,Found,Desc,Line
  2. Integer i,Temp,Sort,iFiles,Count,Dir
  3. Int C_Size
  4.  
  5. Dir = GetToken()
  6. If (Dir = "") then
  7.   PrintLn "Please inform your System Operator there is a configuration error."
  8.   PrintLn "File Directories are not available at this time."
  9.   End
  10. Endif
  11.  
  12. CNames = ReadLine(PCBDat(),31)+".@@@"
  13.  
  14. FOpen 1,CNames,O_RD,S_DN
  15. FRead 1,C_Size,2
  16. FSeek 1,((C_Size*CurConf())+484),Seek_Set
  17. FRead 1,LSTFile,33
  18. FClose 1
  19.  
  20. FOpen 1,LSTFile,O_RD,S_DN
  21. FSeek 1,((Dir-1)*96),Seek_Set
  22.   FRead 1,DIRFile,30
  23.   FRead 1,DIRSub,30
  24.   FRead 1,Desc,35
  25.   FRead 1,Sort,1
  26.   DIRSub = Strip(DIRSub," ")
  27.   PrintLn "    File Category: ",Desc
  28.   PrintLn ""
  29.   Found = FindFirst(DIRSub+"*.*")
  30.   Count = 1
  31.   Line = "@X0E"+Left(Found,12)+"@X0A"+Right(String(FileInf(DIRSub+Found,4)),9)+Space(2)+"@X0B"+String(FileInf(DIRSub+Found,2))
  32.   iFiles = FileInf(DIRSub+Found,4)
  33.   PrintLn Line
  34.   While (Found <> "") do
  35.     Found = FindNext()
  36.     Line = "@X0E"+Left(Found,12)+"@X0A"+Right(String(FileInf(DIRSub+Found,4)),9)+Space(2)+"@X0B"+String(FileInf(DIRSub+Found,2))
  37.     If (Found <> "") PrintLn Line
  38.     Inc Count
  39.     iFiles = iFiles + FileInf(DIRSub+Found,4)
  40.   Endwhile
  41.   PrintLn ""
  42.   PrintLn "     Total files: ",String(Count),"  Total files size: ",String(iFiles)
  43. End
  44.