Добрый день! Есть onlogon скрипт, который мапит сетевые диски пользователям. Все работает нормально. Только одна беда. На сетевой диск (физически это папка на сервере) существует квота -2 ГБ. Как сделать так чтоб в экспловере windows у пользователей отображалась правильное количество свободного места исходя из существующей квоты. Сейчас показывается исходя из оставшегося места на жестком диске. Пользователь видит, что у него там полно места и начинает кидать туда что не попадя ))) Кусок скрипта:

Код к задаче: «Правильное отображение количества свободного места в сетевом диске - VBA»

Копировать

Function VolumeFolder(path)

    Dim fso As Object, fold As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set fold = fso.GetFolder(path)

    VolumeFolder = fold.Size

    Set fso = Nothing

    Set fold = Nothing

End Function

?VolumeFolder ("c:\temp")

 99183091