home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_042_Read.bas < prev    next >
BASIC Source File  |  2003-11-26  |  245b  |  13 lines
  1.  
  2. filename = File.CommonWindowsDirectory + "\\win.ini"
  3.  
  4. fp = File.Open( filename, "r" )
  5.  
  6. While File.IsEof( fp ) = FALSE
  7.     buffer = File.Read( fp )
  8.     buffer = Left( buffer, Len( buffer ) - 1 )   ' \n
  9.     print buffer
  10. Wend
  11.  
  12. File.Close( fp )
  13.