ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: numéro de série du disque dur

Sujet
1 2 3 4 5 6 7 8 9 10 ...130 Suivant
Caractère spécial dans un état avec la police Courier new olivvv59 - 23/04/2025 16h45
SIRET vérification - clé de contrôle (dernier chiffre) Francis Faure - 16/04/2025 20h33
importer des données à partir d'une feuille de calcul Google Drive Tarso Campos - 13/04/2025 23h06
numéro de série du disque dur Tarso Campos - 09/04/2025 21h24
bonjour a tous Recherche developpeur Foxincloud HBCS - 25/03/2025 14h15
Affichage de fichiers PDF Tarso Campos - 23/03/2025 23h03
fichiers icônes, bitmap ou jpeg gratuits Tarso Campos - 23/03/2025 19h51
Clôture inattendue du programme Tarso Campos - 28/02/2025 01h36
VFPWINSOCK ne fonctionne plus coppensg - 03/01/2025 12h00
pré requis installation CFP 9.0 sur Win10 et Win7 32b fp7253 - 29/12/2024 10h21
-Impression - gestion page setup Adel - 22/12/2024 18h12
Lenteur dans la réponse de requete SQL SERVER Abderrazak OMARI - 13/11/2024 11h06
Mike Gagnon jcriv - 07/11/2024 18h51
firefox et site http / https Francis Faure - 17/10/2024 18h36
foxincloud dbf vers sql HBCS - 19/09/2024 08h57
expédition de mails @gmail.com en utilisant smtp.gmail.com TLS Francis Faure - 02/09/2024 13h18
Extraction texte d'un PDF jpb - 27/08/2024 06h18
Affichage d'image distante dans un formaulaire Aimé - 23/08/2024 20h30
communiquer sur internet avec Vfp6 Jacky - 18/07/2024 08h48
Aide récupération prog sous FoxPro 2.6a Thierry655 - 12/07/2024 18h42
1 2 3 4 5 6 7 8 9 10 ...130 Suivant

Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

jeu. 10 avril 2025, 08h57
Jean à Grenoble
atoutfox.public.association

Re: numéro de série du disque dur

petite réponse rapide (il faudrait tester l'existence du disque avant de lancer
la recherche du n° de série) et mettre le createobject dans un TRY CATCH

fso = CreateObject("Scripting.FileSystemObject")
lcdisque = "D"
IF fso.DriveExists(m.lcdisque)
LOCAL objdrive
objDrive = fso.GetDrive( m.lcdisque)
lcnumeroserie = IIF(VARTYPE(m.objdrive)=="O", m.objDrive.SerialNumber, "")
ENDIF && This.fso.DriveExists(m.lcdisque)

Jean à Grenoble

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000020260

20 179 messages dans le forum • Liste complète des messages

Les pubs en cours :