Click above to get retro games delivered to your door ever month!

 curpath()           Return current path
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   func char curpath extern
   param value uint uDrive

 Arguments
   uDrive is the number of the drive to access (0: current, 1: A,
   2: B, etc. )

 Return
   Current path on the selected drive as character string.

 Description
   The curpath() function returns the current path on the selected drive
   as a character string.

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   proc Test_curpath
   // List current path for all valid drive letters
   vardef
      uint nLetter
      uint n
      uint nDrives
      uint nCurDrive
      char cPath
   enddef
   nCurDrive := curdrive()           // save current drive
   nLetter := 0
   nDrives := 0
   for n := 'A' to 'Z'               // test all drive characters
      __errcritical.code := 0
      selectdrive( nLetter )         // attempt to switch to a drive
      if nLetter == curdrive()       // if successful
         cPath := curpath( 0 )       // get path for this drive
         if __errcritical.code == 0  // if no access error occurred
            ? cPath                  // show path
         endif
      endif
      nLetter++                      // next drive
   next
   selectdrive( nCurDrive )          // restore original drive
   endproc

   proc main
   Test_curpath()
   endproc