列出目前的磁碟機

我們可以使用 file 這個 command 來做到這件事，所拿到的是目前磁碟機的 list，下面是範例程式：

set disks [file volumes]

puts "Disks:"
foreach local $disks {
puts " $local --- [file system $local]"
}

在範例中，我們同時也使用了 file system 來取得檔案系統的資料（是 FAT 或者是 NTFS 等資料）。