SoloCodigo

hola
prueba con esto
alasleos@televicabe.net.mx

Declare LONG GetVolumeInformation IN Win32API String, String, Integer, Long @, Long, Long, String, Long
mser = -1  && serie
hd = Sys(5)  && letra unidad de disco
If Upper(Subs(hd,1,1))$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   discohd = Allt(hd)+"\"
   
    GetVolumeInformation(discohd," ",1,@mser,0,0," ",1)
EndIf      
WAIT ALLTRIM(STR(mser)) WINDOW TIMEOUT 10
Clear DLLS