Свободное место на диске

[VadimP]

Добрый день!
Подскажите пожалуйста каким образом с помощью RSL можно определить свободное место на указанном диске (сетевой шаре)?

[OldFox]

Вот так устроит? Диски берутся с сервера, если нужны другие сетевые ресурсы - примапить их на нем.

file t () txt;
NameDisk="C";
run(GetEnv("COMSPEC")," /c dir "+NameDisk+":\*.* > ..\\txtfile\\dir.txt" );
if( NOT open(t,"..\\txtfile\\dir.txt")) println("not open file"); end;
rewind(t);
while(next(t))
if(index(t.str,"байт") != 0)
println(trim(t.str));
end;
end;