Space available on disk

[xavier64]

Hi,
I'm looking for a command giving me the space available on my hard disk.

I've tried "exec dir" but this command only return me the list of files in the directory

 

[marsd]

Try this:

http://mini.net/tcl/4187

 

[xavier64]

Thanks for your answer,
but i'm looking for the command or a procedure making an unix df and not du.
I don't care if the procedure make an exec.
I can't use exec df cause i'm running my script under windows.

Thanks,

 

[Meri]

This seems to work for me:

proc get_available_space {} {
set fp [open |bin/df]
gets $fp title
gets $fp disk_usage
close $fp
foreach {device blocks used available\
procentage mount} $disk_usage break
return $available
}

I hope it helps!