بسم الله الرحمن الرحيم
ارجو مكنم ألا تبخلوا علي في هذا الطلب حيث إني صادفت مشكلة في كيفية معرفة الدريفات الموجوده على جهازي
ووجد هذا الكود بالاعتماد على API لكنب لم افهمه
الكود:
Private Declare Function GetLogicalDrives Lib "KERNEL32" () As Long
Private Sub Command1_Click()
Dim drv As Long
Dim cnt As Integer
drv = GetLogicalDrives
For cnt = 0 To 25
If (drv And 2 ^ cnt) <> 0 Then
Print Chr(65 + cnt)
End If
Next cnt
End Sub
ارجو منكم شرحه لي ةا احضار كود أخر وشكرا لكم جميعا و لإداره هذا المنتدى العظيم
و الرجاء أحد منكم ما يتفلسف و يحكي سهل مو سهل وإلا API الخ الخ الخ نحن نريد الفائده وشكرا لكم