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

Формулировка задачи:

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

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

textual
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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ