Как узнать свободное место на жестком диске?
Следующая функция поможет Вам быстро узнать свободное место на жестком диске в байтах:
Function DriveFreeSpace(Letter$)
Dim FSO As Object: Set FSO = CreateObject("Scripting.FilesSystemObject")
Dim DSO As Object: Set DSO = FSO.GetDrive(FileObject.GetDriveName(Letter))
End Function
Dim FSO As Object: Set FSO = CreateObject("Scripting.FilesSystemObject")
Dim DSO As Object: Set DSO = FSO.GetDrive(FileObject.GetDriveName(Letter))
End Function
Функция взята из модуля FSO Examples, в котором содержатся ВСЕ функции по работе с файловой системой! Его можно скачать в разделе «Исходники».
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/