فوری به دست آوردن لیست درایو های Removable

[Ehsan.PHP]

سلام. فوریه لطفا زود جواب بدید.خیلی ساده هست. چه طور می تونم تمامی درایو های removable را بدست بیارم و در combobox بریزم. ممنون. زود جواب بدید عجله دارم.

[Ehsan.PHP]

لطفا جواب دید!

[butterfly8528]

سلام دوست عزیز .
یک ComboBox به فرمتون اضافه کنید و کد های زیر رو در فرمتون بریزید :
' www.arshamsoft.com

Option Explicit

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

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long


Private Sub Form_Load()
Dim i As Byte, strTemp As String, strDrive As String, strS() As String, ret As Long

Me.AutoRedraw = True

strTemp = String(255, Chr$(0))

ret = GetLogicalDriveStrings(255, strTemp)
For i = 1 To 100
If Left$(strTemp, InStr(1, strTemp, Chr$(0))) = Chr$(0) Then Exit For
strDrive = strDrive & Left$(strTemp, InStr(1, strTemp, Chr$(0)) - 1) & "|"
strTemp = Right$(strTemp, Len(strTemp) - InStr(1, strTemp, Chr$(0)))
Next i

strS = Split(strDrive, "|")

For i = LBound(strS) To UBound(strS)
If strS(i) <> "" Then '"Removable" '"Ram disk"
If GetDriveType(strS(i)) = 2 Or GetDriveType(strS(i)) = 6 Then Combo1.AddItem strS(i)
End If
Next i

End Sub


موفق و پیروز باشید .