(22/03/2016, 17:52)ozanakkaya yazdı: Left right kodunda sayı yerine - öncesi ve - sonrasını almayı dener misin
- öncesi
Left(Deger;InStr(1;deger;"-")-1)
-sonrası
mid(deger;InStr(1;deger;"-")+1)
Ayrıca deger as string yerine deger as byte kodunu da deneyebilirsin.
Sayın hocam diğer kodda ve hocamın verdiği kodda da denedim tip uyuşmazlık hatası verdi.
Kod:
Public Function HDSerialNumber() As String
Dim fsObj As Object
Dim drv As Object
Set fsObj = CreateObject("Scripting.FileSystemObject")
Set drv = fsObj.Drives("C")
'HDSerialNumber = Left(Hex(drv.SerialNumber), 4) & "-" & Right(Hex(drv.SerialNumber), 4)
HDSerialNumber = Left(drv.SerialNumber;Instr(1;drv.serialnumber;"-")-1) & "-" & Right(Hex(drv.SerialNumber), 4)
End Function