Seri numarası belli olan sürücü harfini bulmak

[k0081]

Merhaba arkadaşlar;

Seri numarası 1256985642552 olan sürücünün,,, Sürücü harfini bir değişkene command buton ile nasıl alabilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Haluk]

Aşağıdaki kodu deneyebilirsiniz....

Sub Drives()
    'Haluk - 01/04/2018
    Dim Fso As Object
    Dim Drv As Object
    DiskSerialNumber = "1256985642552"
    Set Fso = CreateObject("Scripting.FileSystemObject")
    For Each Drv In Fso.Drives
        If Drv.IsReady Then
            If Drv.SerialNumber = DiskSerialNumber Then
                MsgBox "Disk Bölümü=" & Drv.DriveLetter
            Else
                MsgBox "Bu seri numaralı bir disk bulunamadı"
            End If
        End If
    Next
End Sub

.

 

[k0081]

Haluk;

Şirket bilgisayarı olduğu için deneyemedim.. deneme yapıp sonucu buradan yazarım. Teşekkür ederim.

*********

Denedim. Fakat sürücü harfini alamadım... serial kısmında bir hata var galiba... “ Dim drv as drive “ bu kısımda hata veriyor...

 

[Haluk]

2. mesajdaki kodu tekrar kopyalayıp deneyin.... Siz, revizyondan önceki kodu denemişiniz.

.

 

[k0081]

2. mesajdaki kodu tekrar kopyalayıp deneyin.... Siz, revizyondan önceki kodu denemişiniz.

.

Bu kodu da denedim sonuç aynı.. harfi alamıyorum.. bulunamadı diyor.. başka serino larda denedim yine olmadı.

DiskserialNumber="-319650050" mesela bunu deniyorum yine olmuyor.. harddisk C:\ sürücüsünün serialini giriyorum , yine sonuç yok..

Şimdi benim önerim; hem seriali bir değişkene alıp, DiskserialNumber2 gibi mesela.. hemde harfi bir değişkene alabilirmiyiz ?

 

[Haluk]

Bunu bir deneyin, buradan sonuçları almanız gerekir ...

Sub Drives2()
    'Haluk - 05/04/2018
    Dim Fso As Object
    Dim Drv As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    For Each Drv In Fso.Drives
        If Drv.IsReady Then
                MsgBox "Disk Bölümü=" & Drv.DriveLetter & vbCrLf & "Seri No:" & Drv.SerialNumber
        End If
    Next
End Sub

 

[k0081]

Haluk;

Evet buradan serialno yu alıyor. C:\ sürücüsü olarak. ok.

ben aldığım bu numarayı bir önceki kodda Diskserialnumber kısmına giriyorum.

ve sonuç olarak sürücü adını C: olarak almam gerekiyor.. fakat sonuç bulunamadı diyor...

 

[Haluk]

Birinci kodda;

DiskSerialNumber = [COLOR=Red][B]"[/B][/COLOR]1256985642552[B][COLOR=red]"[/COLOR][/B]

kırmızıyla belirttiğim tırnak işaretlerini kaldırıp, dene ....
.

 

[k0081]

Birinci kodda;

DiskSerialNumber = [COLOR=Red][B]"[/B][/COLOR]1256985642552[B][COLOR=red]"[/COLOR][/B]

kırmızıyla belirttiğim tırnak işaretlerini kaldırıp, dene ....
.

Hocam çok teşekkür ediyorum, Tamamdır.. Elinize-Yüreğinize sağlık.