Hi Ed,
Thanks for your message. I try the code you posted but there is no difference. When I pass a network drive as parameter the serial number is always 0.
WAIT WINDOW STR(ShowDriveSerialNumber("X:\")) && 0
WAIT WINDOW STR(ShowDriveSerialNumber("C:\")) && 74198273
Function ShowDriveSerialNumber
LPARAMETER cDrvPath
LOCAL fso, oDrive
fso = CREATEOBJ('Scripting.FileSystemObject')
oDrive = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(cDrvPath)))
RETURN oDrive.SerialNumber
Boris
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.