Declare Function DiskSpaceFree Lib ' SETUPKIT.DLL' () As Long
satırını formlardan bağımsız bir modüle yazdıktan sonra aşağıdaki
üç satırı kullanarak sadece VB 3.0'da geçerli olacak programcığınızı tamamlayabilirsiniz.
Dim bos_alan&
' DiskSpaceFree() fonksiyonunun döndürdüğü değeri taşır.
ChDrive ' c:' ' Boş alanı bulmadan önce sürücümüzü seçelim.
free_space& = DiskSpaceFree()
VB'nizin sürümü ne olursa oldun SETUPKIT dizinindeki projeyi açarak hangi DLL dosyasından yararlanacağınızı ve ne gibi kodlar yazmanız gerektiğini öğrenebilirsiniz.