Posted By

Phoenicia7 on 05/14/12


Tagged


Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

joseamirandavelez


Drive Letters


 / Published in: TCL
 

  1. proc _driveLetters {} {
  2. # Return a list of mapped drive (volume) letters (in upper case).
  3. foreach drive [list a b c d e f g h i j k l m n o p q r s t u v x y z] {
  4. if {[catch {file stat ${drive}: dummy}] == 0} {
  5. lappend drives [string toupper $drive]
  6. }
  7. }
  8. return $drives
  9. }
  10.  

Report this snippet  

You need to login to post a comment.