home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_011_Set_Current_Directory.bas < prev    next >
BASIC Source File  |  2003-11-26  |  317b  |  12 lines
  1. Print "Current directory: ", File.CurrentDirectory 
  2.  
  3. File.CurrentDirectory = ".."
  4. Print "Current directory: ", File.CurrentDirectory 
  5. Print
  6. File.CurrentDirectory = "c:\\"
  7. Print "Current directory: ", File.CurrentDirectory 
  8. File.Find( "*" )
  9. For i = 0 To File.NumberOfElements - 1
  10.     Print File( i ).Path
  11. Next
  12.