home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_005_Limit.bas < prev    next >
BASIC Source File  |  2003-11-26  |  258b  |  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.