مشکل با نمایش سریال درایوها

[Usefi]

سلام من یه برنامه نوشتم که سریال درایو ها رو نشون میده روی سیستم خودم جواب میده اما روی سیستم های دیگه این ارور رو میده : تایپ میسماچ , ران تایم ارور 13

ممنون میشم دوستان راهنمایی کنن

 

[igimax]

سلام bahrain عزيز

. اين تابع مشكلتان را حل خواهد كرد، مقدار DriveLetter بايد :a يا :c يا ... باشد :

Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long

    Dim fso         As Object
    Dim Drv         As Object
    Dim DriveSerial As Long
    
    'Create a FileSystemObject object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'Assign the current drive letter if not specified
    If DriveLetter <> "" Then
        Set Drv = fso.getdrive(DriveLetter)
    Else
        Set Drv = fso.getdrive(fso.GetDriveName(App.Path))
    End If

    With Drv
        If .IsReady Then
            DriveSerial = Abs(.SerialNumber)
        Else    '"Drive Not Ready!"
            DriveSerial = -1
        End If
    End With
    
    'Clean up
    Set Drv = Nothing
    Set fso = Nothing
    
    GetDriveSerialNumber = DriveSerial
    
End Function

موفق باشيد.

خداحافظ
IgImAx
87/11/20

 

[Usefi]

ممنون و متشکر