PDA

View Full Version : نمایش درایو های اصلی در Drive ListBox



lesolai
چهارشنبه 17 فروردین 1390, 15:09 عصر
چطور می شه که Drive ListBox فقط درایو های ثابت رو نشون بده.یعنی درایو هایی مثل CDROM , Floppy ,Flash Memory یا .... رو در خودش نشون نده.یعنی فقط درایو های ثابت مثل C,D,E,F,G,H,I رو نشون بده.
ممنون

ترانسپورتر
چهارشنبه 17 فروردین 1390, 20:33 عصر
سلام-فکر نکم بشه همچین کاری کرد ، چون تو خاصیت هاش که چیزی در این رابطه ندیدم ، ولی می تونی درایوهای ثابت رو از drive list box به یه لیست دیگه توسط این کد کپی کنی:
قبلش تیک microsoft scripting runtime رو تو refrence بزار

Private Sub Command1_Click()
Drive1.Refresh
List1.Clear
Dim myfso As New FileSystemObject
Dim mydrive As Drive

On Error Resume Next

For i = 0 To Drive1.ListCount
x = Drive1.List(i)
Set mydrive = myfso.GetDrive(Drive1.List(i))

If mydrive.DriveType = Fixed Then
List1.AddItem Drive1.List(i)
End If
Next

End Sub