HDD Seri No

[reflection]

merhaba. access xp de serial noyu bulurken alttaki kodu kullanıyordum. fakat access 2003 de ilk satırda hata verdi. Anlayamadım. Nedeni nedir acaba.
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
s = d.SerialNumber
MsgBox s

 

[ALPEN]

Hatayı ve kodu tam olarak öğrenebilir miyim?

 

[ALPEN]

Birde öneri,
Tools -> References

Penceresinde MISSING olan satırın (varsa) sağındaki check işaretini kaldırıp,
Microsoft scripting runtime'a manual referans vermeyi deneyin.

 

[Haluk]

Birde öneri,
Tools -> References

Penceresinde MISSING olan satırın (varsa) sağındaki check işaretini kaldırıp,
Microsoft scripting runtime'a manual referans vermeyi deneyin.

Ama zaten Late Binding kullanıyor. Referansa gerek olmaması gerekir.

Eğer varsa, MISSING referansların kaldırılması çözüm olabilir bence de.

 

[ALPEN]

Ama zaten Late Binding kullanıyor. Referansa gerek olmaması gerekir.

Sn refection'dan yanıt gelmeyince, aklıma geldi.

Belki önceki sürüm access'te manual referans vermiştir, 2003 access'in ms scripting runtime'ı da aynı versiyonda olmadığı için şarlamıştır diye düşündüm.

Çünkü önceki sürümde de late binding kullanıyor olsaydı, 2003'ün sorun çıkarmaması lazım zannımca. (ıyh ne pis kelimeymiş bu zannımca.)

Sence?

 

[Haluk]

......
(ıyh ne pis kelimeymiş bu zannımca.)

Sence?

ehehe... bence de öyle :mrgreen: