home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_File_005_Limit.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  258 b   |  10 lines
  1. File.Limit = 5                                        ' Limit 5
  2. File.Find( "*" )    
  3.  
  4. Print "Number of files   : ", File.NumberOfFiles     ' <<<
  5. Print "Number of elements: ", File.NumberOfElements    ' <<<
  6. Print
  7. For i = 0 To File.NumberOfElements - 1
  8.     Print i+1, " ", File( i ).Name
  9. Next
  10.