- Katılım
- 29 Eylül 2004
- Mesajlar
- 90
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
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
s = d.SerialNumber
MsgBox s