Kod:
HDSerialNumber = Left(drv.SerialNumber;Instr(1;drv.serialnumber;"-")-1) & "-" & Right(Hex(drv.SerialNumber), 4)çünkü;kod sayfasında fonksiyon benzeri yazarken,noktalı virgül (;) ile değil sadece virgül (,) ile yazılmalı.noktalı virgül yazımları ancak sorgularda veya form denetimlerindeki Denetim Kaynağı satırlarında geçerlidir.
son olarak;konunuzun 2.mesajında paylaştığım alternatif kod satırlarında
Kod:
HDSerialNumber = Left(drv.SerialNumber;Instr(1;drv.serialnumber;"-")-1) & "-" & Right(Hex(drv.SerialNumber), 4)Kod:
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)
End FunctionKod:
Me.Vol.Caption = HDSerialNumber
Me.Vol.Caption = Left(HDSerialNumber, InStr(1, HDSerialNumber, "-") - 1)bilginize...iyi çalışmalar,saygılar.
