RECHERCHER UN FICHIER SUR UN DISQUE, SANS CONNAITRE SON EMPLACEMENT EXACT
Contenu du snippet
strComputer = "." Set objFSO = CreateObject("Scripting.FileSystemObject") SET Rapport = ObjFSO.OpenTextFile("C:\rapport.txt",2,TRUE,0) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where FileName = 'Mon Fichier' AND Extension = 'Son Extension'") For Each objFile in colFiles Rapport.writeline objFile.Name Next
Compatibilité : VBScript
Disponible dans d'autres langages :
A voir également
- RECHERCHER UN FICHIER SUR UN DISQUE, SANS CONNAITRE SON EMPLACEMENT EXACT
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier class ✓ - Forum Java
- Vba ouvrir un fichier excel sans l'afficher ✓ - Forum Visual Basic 6
- Fichier json - Conseils pratiques -Javascript
- Ouvrir un fichier java - Forum Java
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.