MyTetra Share
Делитесь знаниями!
Правильное отображение количества свободного места в сетевом диске - VBA
16.03.2019
23:43
Раздел: !Закладки - VBA - FSO

Добрый день! Есть 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

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования