Article View: free.it.visual-basic
Article #3733Re: No de serie DD en VBA
From: Esteban
Date: Thu, 18 Apr 2002 16:13
Date: Thu, 18 Apr 2002 16:13
20 lines
1879 bytes
1879 bytes
"Franck CHAMBERY" <Franck.news@netcourrier.com> ha scritto nel messaggio
news:a9kkgo$1mdg$1@news6.isdnet.net...
> Est-ce qu'un pro pourrait m'indiquer comment r�cup�rer le num�ro de s�rie
> d'un disque dur en VBA sous Access97
> ou comment executer une commande DOS du style dir G:qq> fichier.txt
> toujours en VBA afin de r�cup�rer le texte par la fonction OPEN et l�
> j'aurais mon numero de s�rie de volume
> Le but est de faire fonctionner un fichier que s'il est sur un disque donn�
> ! (si vous avez une autre id�e pour identifier � coup sur un utilisateur
> ...)
Dim fso As New FileSystemObject
Debug.Print Hex$(fso.GetDrive("c").SerialNumber)
Ciao!
--
Esteban
Hosted by www.seber.it
(Remove nonspammare for reply)
Technical Details
Message-ID:
<XoBv8.56031$m41.1457345@twister2.libero.it>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mailReferences:
<a9kkgo$1mdg$1@news6.isdnet.net>Show Full Headers
Complete Article Headers
X-Google-Language: FRENCH,ASCII X-Google-Thread: f94ee,935b17fec0748908 X-Google-Attributes: gidf94ee,public X-Google-Thread: 109d5a,935b17fec0748908 X-Google-Attributes: gid109d5a,public X-Google-ArrivalTime: 2002-04-18 08:14:00 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail From: "Esteban" <esteban_nonspammaresoftware@email.it> Newsgroups: free.it.visual-basic,tw.bbs.comp.lang.basic References: <a9kkgo$1mdg$1@news6.isdnet.net> Subject: Re: No de serie DD en VBA Lines: 22 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.50.4807.1700 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200 Message-ID: <XoBv8.56031$m41.1457345@twister2.libero.it> Date: Thu, 18 Apr 2002 17:13:57 +0100 NNTP-Posting-Host: 151.25.4.189 X-Complaints-To: abuse@libero.it X-Trace: twister2.libero.it 1019142839 151.25.4.189 (Thu, 18 Apr 2002 17:13:59 MET DST) NNTP-Posting-Date: Thu, 18 Apr 2002 17:13:59 MET DST Organization: [Infostrada]