ทำอย่างไรจึงจะสามารถเช็คพื้นที่คงเหลือใน Drive a:
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 253   3
URL.หัวข้อ / URL
ทำอย่างไรจึงจะสามารถเช็คพื้นที่คงเหลือใน Drive a:

ผมต้องการหาพื้นที่คงเหลือใน Drive a: เพื่อที่จะ Save ข้อมูลลงแผ่นมี Code ช่วยหรือไม่ครับ

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01201
ลองดูโค้ดนี้ครับ Sub IsAReady() Dim fso As Object, d As Object, dc As Object Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc If d.DriveType = 1 And d.DriveLetter = "A" Then ' Check if the drive A is ready. If d.IsReady Then MsgBox "Drive " & d.DriveLetter & " is ready" & _ vbCrLf & "Available space: " & Format(d.AvailableSpace, "#,#00") _ & " bytes" & vbCrLf & "Available space: " & Format(d.TotalSize, "#,#00") _ & " bytes", vbOKOnly Else MsgBox "Drive " & d.DriveLetter & " is not ready", vbOKOnly End If End If Next End Sub
2 @R01202
ให้เปลี่ยน Available space: อันที่ 2 ให้เป็น Total space: ด้วยครับ
3 @R01203
ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0818s