ايران ويج

صفحه‌ها: 1 2

پیمان جان من با کد شما مشکل دارم درست کار نمیده میشه یه چک بکنی !

و ببینی آیا میشه توی لیست ویو یا لیست باکس فراخوانی بشن !

سلام.

کد: 
Private Declare Function GetLogicalDriveStringsA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

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

Private Sub GetDrives()

Dim strNamedrv(40) As String, strSaveDrives As String

     'Find Drives

     strSaveDrives = String(255, vbNullChar)

     GetLogicalDriveStringsA 255, strSaveDrives

     For keer = 1 To 100

         If Left(strSaveDrives, InStr(1, strSaveDrives, vbNullChar)) = vbNullChar Then Exit For

         strNamedrv(keer) = Left(strSaveDrives, InStr(1, strSaveDrives, vbNullChar) - 1)

         strSaveDrives = Right(strSaveDrives, Len(strSaveDrives) - InStr(1, strSaveDrives, vbNullChar))

     Next keer

     'Getting Type Of Drives

     For i = 1 To keer - 1

         Select Case GetDriveTypeA(strNamedrv(i))

             Case Is = 2

                 'Removable

                 strNamedrv(i) = strNamedrv(i) & "-----" & "Removable"

             Case Is = 3

                 'Fix

                 strNamedrv(i) = strNamedrv(i) & "-----" & "Fix"

             Case Is = 4

                 'Remote

                 strNamedrv(i) = strNamedrv(i) & "-----" & "Remote"

             Case Is = 5

                 'CD-Rom

                 strNamedrv(i) = strNamedrv(i) & "-----" & "CD-Rom"

             Case Is = 6

                 'Ram Disk

                 strNamedrv(i) = strNamedrv(i) & "-----" & "Ram Disk"

             Case Else

                 'Unrecognized

                 strNamedrv(i) = strNamedrv(i) & "-----" & "Unrecognized"

         End Select

         lstDrives.AddItem strNamedrv(i)

     Next i

 End Sub

سلام
میدونم این موضوع قدیمیه
اما هنوز سوالی دارم
چطور میشه هارد اکسترنال یا فلش مموری اجکت شده توسط safe remove رو بدون درآوردن و جازدن usb دوباره بالا آورد؟
ممنونم از سایتتون

(۰۷-فروردین-۱۳۹۲, ۱۸:۰۳:۳۳)smnmasoud نوشته است: [ -> ]سلام
میدونم این موضوع قدیمیه
اما هنوز سوالی دارم
چطور میشه هارد اکسترنال یا فلش مموری اجکت شده توسط safe remove رو بدون درآوردن و جازدن usb دوباره بالا آورد؟
ممنونم از سایتتون

یه برنامه بود که اینکارو میکرد! اسمش یادم نیست؛ توی سایت‌های دانلود فارسی بگرید میتونی پیداش کنی

صفحه‌ها: 1 2

sevdaboy

Payman62

smnmasoud

babyy