PDA

View Full Version : سوال: تعداد درایو های removable



sina_saravi1
یک شنبه 20 اردیبهشت 1388, 10:24 صبح
سلام

چطوری میشه بفهمیم تعداد درایو های removable(فش) چند تاست؟
اسمشون چیه؟

ممنون

sina_saravi1
یک شنبه 20 اردیبهشت 1388, 10:34 صبح
یه سوال دیگه هم داشتم

چجوری میشه برای back ground فرم عکس گذاشت؟
من تازه vb.net رو شروع کردم
نیاز به کلی کمک دارم

sina_saravi1
یک شنبه 20 اردیبهشت 1388, 11:01 صبح
یه سوال دیگه هم داشتم

چجوری میشه برای back ground فرم عکس گذاشت؟
من تازه vb.net رو شروع کردم
نیاز به کلی کمک دارم

این مشکلم حل شد
مونده سوال اولم
خیلی نیازمندم

sina_saravi1
یک شنبه 20 اردیبهشت 1388, 11:22 صبح
کسی تو فروم نیست تا به من تازه کار کمک کنه؟
برین از فروم VB یاد بگیرین
اونجا سوال رو زمین نمیمونه
هر کس میره توش خیلی سریع جوابشو میگیره

#target
یک شنبه 20 اردیبهشت 1388, 15:57 عصر
سلام

چطوری میشه بفهمیم تعداد درایو های removable(فلش) چند تاست؟
اسمشون چیه؟

ممنون

با استفاده از کلاس DriveInfo

sina_saravi1
دوشنبه 21 اردیبهشت 1388, 11:34 صبح
با استفاده از کلاس DriveInfo

ممنونم از این که به سوالم جواب دادی
میشه یک کم بیشتر راهنمایی کنی؟

#target
دوشنبه 21 اردیبهشت 1388, 12:48 عصر
کد زیر تمام درایو های Removable که البته فلاپی هم جزو اونها میشه رو یکی یکی بصورت یک مسیج باکس نمایش میده سر آخر هم تعداد اونها رو در یک مسیج باکس نشان می دهد !


Dim removabledrivecount As Byte
Dim allofmydrive() As DriveInfo = DriveInfo.GetDrives()
Dim onedrive As DriveInfo
For Each onedrive In allofmydrive
If onedrive.DriveType.ToString = "Removable" Then
removabledrivecount = removabledrivecount + 1
MsgBox(onedrive.Name)
End If
Next
MsgBox(removabledrivecount)

در کد بالا متغیر removabledrivecount را برای تعداد درایو ها ایجاد کردیم
در خط دوم یک آرایه از نوع DriveInfo ایجاد کردیم و اون رو برابر تمام درایوها قرار دادیم . در اینصورت هر خانه آرایه ما مشخصات یک درایو مان را دارد
تابع DriveInfo.GetDrives() خروجی آرایه ای دارد که برابر با اطلاعات تمام درایو های ماست
خط سوم هم یک مقدار از نوع DriveInfo ایجاد کردیم تا تک تک درایوها را بصورت جداگانه در این مقدار قرار دهیم و بعدش اطلاعات اونو بگیریم
حلقه For Each هم به ازای تمام اعضای آرایه هر بار یکی از اونها رو در مقدار onedrive قرار میده
خط پنجم شرط در صورتی فعال میشه که نوع درایو از نوع Removable باشد
onedrive.DriveType.ToString خصوصیتی هست که نوع درایو رو از نوع عدد به خروجی می دهد و Tostring اونو به یک رشته تبدیل می کنه
خوب اگر شرط درست بود پس حتما درایو مان نوع Removable هست پس باید یک دانه به تعداد اضافه بشه و خط بعدش هم که نام اونو بصورت Msgbox نمایش میده
خط آخر هم تعداد درایو ها را نشان میده


اگر دستور شرطی خط پنج را به شکل زیر تغییر بدی اونوقت درایوهای a و b هم که فلاپی ها باشن در نظر گرفته نمی شه


If onedrive.DriveType.ToString = "Removable" And Not (onedrive.Name = "A:\") And Not (onedrive.Name = "B:\") Then

سوال دیگه ؟؟؟؟؟؟؟

sina_saravi1
دوشنبه 21 اردیبهشت 1388, 19:10 عصر
ممنون از لطفت
ولی موقع اجرا ارور میده
خط 5 و 6 ارور میده
نیاز به هیچ dll و یا چیز دیگه نداره؟

#target
دوشنبه 21 اردیبهشت 1388, 20:44 عصر
در بالای فایلتون اضافه کنید
Imports System.IO

( قبل از چیزی مثل Public CLass Form1 (