Filesearch
pumukell
Messages postés
1
Date d'inscription
dimanche 27 août 2006
Statut
Membre
Dernière intervention
16 décembre 2006
-
16 déc. 2006 à 16:04
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 17 déc. 2006 à 00:42
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 17 déc. 2006 à 00:42
3 réponses
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
16 déc. 2006 à 18:05
16 déc. 2006 à 18:05
Utilise les fonctions FindFirstFile et FindNextFile de la librairie "kernel32"
Tu as même un exemple d'utilisation avec ALLAPI.
Tu as même un exemple d'utilisation avec ALLAPI.
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
16 déc. 2006 à 18:24
16 déc. 2006 à 18:24
Bonjour,
Avec WMI.
Option Explicit
Const MonMot = "2006" 'soit Year(date)
Dim fso, strComputer, resultat, f
Dim objWMIService, colFiles, objFile
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Drive = 'd:'")
For Each objFile in colFiles
If InStr(objFile.Name, MonMot) Then resultat = resultat &vbCr& objFile.Name
Next
WScript.Echo resultat
Set objWMIService = Nothing
Set colFiles = Nothing
'("Select * from CIM_DataFile where FileName '2006' And Extension 'txt'")
' je n'arrive pas à optimiser la quéry avec un instr sur le filename. Est-ce possible ???
jean-marc
Avec WMI.
Option Explicit
Const MonMot = "2006" 'soit Year(date)
Dim fso, strComputer, resultat, f
Dim objWMIService, colFiles, objFile
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Drive = 'd:'")
For Each objFile in colFiles
If InStr(objFile.Name, MonMot) Then resultat = resultat &vbCr& objFile.Name
Next
WScript.Echo resultat
Set objWMIService = Nothing
Set colFiles = Nothing
'("Select * from CIM_DataFile where FileName '2006' And Extension 'txt'")
' je n'arrive pas à optimiser la quéry avec un instr sur le filename. Est-ce possible ???
jean-marc
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
17 déc. 2006 à 00:42
17 déc. 2006 à 00:42
Salut,
Précis, rapide, paramétrable et terriblement efficace : la source d'EBArtsoft pour la recherche de fichiers :
http://www.vbfrance.com/code.aspx?ID=4834
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Précis, rapide, paramétrable et terriblement efficace : la source d'EBArtsoft pour la recherche de fichiers :
http://www.vbfrance.com/code.aspx?ID=4834
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.