me podrian ayudar quisiera sacar la serie del disco en visual vasic

vienen librerias con rutinas para ello. Busca en la web saludos

hola gracias x dedicame unas cuantas palabras pero a lo q me dises ya busq y no e encontrado me podrias dar una direccion x favor

mira este archivo aunque esta en vba te puede guiar http://accessbuho.mvps.org/ficheros/seriefisicohd.zip

activa una referencia a microsoft scripting runtime en proyecto .. referencias. Dim aaa As Scripting.FileSystemObject Dim bbb As Scripting.Drive 'Serial number Set aaa = New FileSystemObject Set bbb = aaa.GetDrive("c:") http://www.lavanderiacobos.com

No conozco mucho de VB, perdoná si cometo errores en las siguientes líneas: function serialnumber archivo = "c:\serialnumber.txt" shell "dir c: | find " + chr(34) + "serie" + chr(34) + " > " + archivo handle = freefile Open archivo For Input As handle txt = "0000-0000" if not eof(handle) then line input #handle, txt end if close handle *--Revisar la siguiente línea, no sé si se define así la respuesta-- serialnumber = right(txt, 9) return *-- Sino probar: return right(txt, 9) Probalo para ver si da algún error, y comentanos Suerte! VLR!