چک کردن وجود حافظه خارجی

[esmaeil57 64]

سلام

با چه دستوری میشه وجود حافظه خارجی رو فهمید؟ البته به همراه مقدار فضای اشغالی و مقدار خالی اون.

ممنونم

[مهدی ایزدی 9,203]

سلام

Dim TargetDir as String

If File.ExternalWritable = True then
   TargetDir = File.DirRootExternal
    msgbox(TargetDir,"External Storage"))
else
     TargetDir = File.DirInternal
     msgbox(TargetDir,"Internal Storage"))
end if

کد بالا برای چک کردن هست

[مهدی ایزدی 9,203]

برای گرفتن مقدار حجم هم این رو امتحان کنید:

Dim r As Reflector
  r.Target = r.GetContext
  r.Target = r.RunMethod("getResources")
  r.Target = r.RunMethod("getDisplayMetrics")
  Log(r.GetField("xdpi"))
  Log(r.GetField("ydpi"))

خودم امتحان نکردم ولی جواب میده احتمالا

میتونید به جای Log کردن از MsgBox یا ... استفاده کنید

[mohammad-alone 564]

دوست عزیز اون کد دومی که دادید مربوط به طول و عرض تصویر هستش

مرسی

[ali8008 26]

سلام

Dim TargetDir as String

If File.ExternalWritable = True then
   TargetDir = File.DirRootExternal
    msgbox(TargetDir,"External Storage"))
else
     TargetDir = File.DirInternal
     msgbox(TargetDir,"Internal Storage"))
end if

کد بالا برای چک کردن هست

داداش کدی که نوشتی وجود حافظه ی داخلی رو بررسی میکنه و آدرس اون رو برمیگردونه ، برخلاف اسمش File.DirRootExternal دقیقا روت حافظه ی داخلی رو برمیگردونه!!!