advanced code snippet search

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
 
Expand | Embed | Plain Text 
  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.