Starting with Tcl 8.0 you can use the file volume command to return a list of mounted volumnes, for example: 

file volume
A:/ C:/ D:/ E:/ G:/ H:/ I:/ Q:/ T:/ V:/ X:/