آیا میتوان برنامه ای نوشت که فلش مموری را Eject کنه ؟

[sevdaboy]

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

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

[Payman62]

سلام.

کد:

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

[smnmasoud]

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

[babyy]

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

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