لیست کردن دارایو ها

[papa_toop]

سلام به دوستان

من می خوام تمام دارایوهای سیستم به جز سی دی رام رو هر یک رو در یه تکس باکس نشون بدم می شه یه دستی بزنیید تا این قراضه روشن بشه

[Dariuosh]

For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
MsgBox(Drive.Name & vbCrLf & Drive.DriveType.ToString)
Next

[papa_toop]

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

[papa_toop]

در واقع من می خوام یه آنتی وارم بنویسم برای همین احتیاج به نام هارد درایوها دارم ولی با روش قبلی که دوستمونم گفت من نمی تونم کار کنم یعنی بلد نیستم

[amirsajjadi]

آیا منظورتون همینه :


For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
If Drive.DriveType <> IO.DriveType.CDRom Then
Dim t As New TextBox
Dim y As Integer
y = y + t.Height * 2
t.Location = New Point(10, y)
t.Text = Drive.Name
Me.Controls.Add(t)
t = Nothing
End If
Next

[papa_toop]

دستتون درد نکنه ولی این تکس باکس ها توی حافظه با چه اسمی بالا میان تا من از اطلاعات درونشون استفاده کنم

[Dariuosh]

دستتون درد نکنه ولی این تکس باکس ها توی حافظه با چه اسمی بالا میان تا من از اطلاعات درونشون استفاده کنم
تو اون کدي آقاي سجادي زحمت کشيدن و گذاشتن چون TextBoxها هر بار New ميشن اسمي ندارن ، پس شما خودتون بايد اسمي براشون در نظر بگيريد
کد اينجوريش کني بترتيب اسمشون TextBox 1 2 3 ميشه



Dim Count As Int16 = 1
For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
If Drive.DriveType <> IO.DriveType.CDRom Then
Dim t As New TextBox
t.Name = "TextBox" & Count
Dim y As Integer
y = y + t.Height * 2
t.Location = New Point(10, y)
t.Text = Drive.Name
Me.Controls.Add(t)
t = Nothing
End If
Count += 1
Next

[NewFoxStudent]

شما میتونید از تابع API
GetDriveString
استفاده کنید

[NewFoxStudent]

Private Declare Function GetLogicalDriveStrings Lib "kernel32.dll" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long