به دست آوردن فضای خالی

[محمدعلي]

سلام دوستان
چطوری میتونم فضای خالی یک درایو رو به دست بیارم ؟
مثلا اگه درایو c کلا 10گیگ هست و 4 گیگش پر شده مقدار خالیش که 5 و خورده ای هست رو مثلا پرینت کنم ؟

[Di Di]

دوست عزيز

شما مي تونيد با استفاده از CMD دستور Dir رو روي درايو مورد نظرتون اجرا كرده و نتيجه رو داخل يك فايل ذخيره كنيد

بعد فايل رو باز كنيد و سطري كه در اون مقدار فضاي خالي ديسك نوشته شده رو پرينت كنيد.

البته از توابع API‌هم مي شه استفاده كرد

[SURIV]

سلام دوست عزیز
ابتدا از منوی Project و زیر منوی Refrences گزینه
Microsoft Scripting Runtime رو علامت بزنین.
سپس مثلا کد زیر را استفاده کنین تا فضای خالی درایو C را به بایت نشان دهد:
Private Sub Form_Load()
Dim fso As New FileSystemObject, drv As Drive
Set drv = fso.GetDrive("C:")
br = drv.FreeSpace
MsgBox br
End Sub
در صورتی که از منوی Project و زیر منوی Refrences گزینه Microsoft Scripting Runtime
رو علامت نزنین برنامه ارور میده.
موفق باشین