Posez votre question Signaler

Recherche de fichier sur disque dur. [VBS] [Résolu]

Messages postés
9
Date d'inscription
mardi 22 mai 2007
Dernière intervention
13 octobre 2014
 - - Dernière réponse : cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
 - 8 avril 2008 à 13:12
VB.NET Posez votre question Signaler
Bonjour,

Tout d'abord je suis désolé , la question a du déjà être posé 1000 fois mais je ne trouve pas vraiment de réponse approprié à ce que je cherche.

Je suis sur que c'est tout simple mais je ne m'y connais franchement pas en VB.

Y a t'il une âme charitable pour m'aider?

J'aimerai un petit script qui au démarrage scan le disque dur afin de trouver une extansion de fichier , dans mon cas *.nsf (fichier Lotus Notes) et une fois trouver qu'il incrémente un fichier rapport se trouvant sur un chemin réseau ex: \\nomdemonserveur\dossier\rapport.txt.
Dans ce fichier rapport devra se trouver "nom de l'ordinateur" et les fichiers .nsf trouvés sur son disque dur.

D'avance merci

<!-- / message -->
Afficher la suite 

Votre réponse

Répondre au sujet

9 réponses

Meilleure réponse
Signaler Commenter la réponse de cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
 26
3
Merci
 Bonjour à tous,

L'exemple ci-dessous, avec utilisation de WMI et de l'objet Dictionary, affiche tous les fichiers *.nsf

Option Explicit
MsgBox ShowFilesLotus,,"Result"

Private Function ShowFilesLotus()
Const HARD_DISK = 3
Dim objWMIService, colDisks, colFiles
Dim objDico, objTabExt, objDisk, objFile
Dim strComputer, i
Dim cles, strList

strComputer = "."

objTabExt = "nsf"

Set objDico = CreateObject("Scripting.Dictionary")
objDico.CompareMode = VBBinaryCompare

Set objWMIService = GetObject("winmgmts:" _
                    & "{impersonationLevel=impersonate}!\" _
                    & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
           ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
       
For Each objDisk in colDisks
    Set colFiles = objWMIService.ExecQuery _
                   ("Select * from CIM_DataFile where Drive = '" &_
                     objDisk.Name & "' And Extension = '" & objTabExt &"'")
    For Each objFile in colFiles
        objDico.Add objFile.Name,""
    Next
Next
Set colFiles =  Nothing
Set colDisks =  Nothing
Set objWMIService = Nothing

cles = objDico.Keys
For i = 0 To objDico.Count-1
    strList = strList &vbCr& cles(i)
Next
Set objDico = Nothing
ShowFilesLotus = strList
End Function

jean-marc

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 117 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_JMO
Signaler Commenter la réponse de mat76
Messages postés
9
Date d'inscription
mardi 22 mai 2007
Dernière intervention
13 octobre 2014
0
Merci
Bonjour,


J'ai repris votre script qui correspond à ce que je veux faire.
Mais il y a une subtilité que je désire et n'arrive pas à faire :( on est développeur ou on ne l'est pas...) Je voudrais que le contenu de la recherche qui s'affiche dans la texte box, s'inscrive egalement dans le fichier Lotus.txt mais sans succès.

Et le comble du bonheur pour moi serait que ces informations (dans le fichier texte) soit précédé de l'identifiant de l'ordinateur ( %computername% fichier.nsf )

     

                              Option Explicit
MsgBox ShowFilesLotus,,"Result"




Private Function ShowFilesLotus()
Const HARD_DISK = 3
Dim objWMIService, colDisks, colFiles
Dim objDico, objTabExt, objDisk, objFile
Dim strComputer, i
Dim cles, strList
Dim ObjRapport, ObjFilerapport
Const ForWriting = 2




strComputer = "."




objTabExt = "nsf"


Set ObjRapport = CreateObject("Scripting.FileSystemObject" )
Set ObjFileRapport = ObjRapport.OpenTextFile("g:\migration\Lotus\Lotus.txt",ForWriting)
ObjFileRapport.Writeline (ShowFilesLotus)
ObjFileRapport.WriteBlankLines(2)
ObjFileRapport.close




Set objDico = CreateObject("Scripting.Dictionary")
objDico.CompareMode = VBBinaryCompare


Set objWMIService = GetObject("winmgmts:" _
                    & "{impersonationLevel=impersonate}!\" _
                    & strComputer & "\root\cimv2")


Set colDisks = objWMIService.ExecQuery _
           ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")


For Each objDisk in colDisks
    Set colFiles = objWMIService.ExecQuery _
                   ("Select * from CIM_DataFile where Drive = '" &_
                     objDisk.Name & "' And Extension = '" & objTabExt &"'")
    For Each objFile in colFiles
        objDico.Add objFile.Name,""
    Next
Next
Set colFiles =  Nothing
Set colDisks =  Nothing
Set objWMIService = Nothing


cles = objDico.Keys
For i = 0 To objDico.Count-1
    strList = strList &vbCr& cles(i)
Next
Set objDico = Nothing
ShowFilesLotus = strList
End Function


Commenter la réponse de mat76
Signaler Commenter la réponse de cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
 26
0
Merci
 Bonjour,

ObjRapport.OpenTextFile("c:\Lotus.txt", ForAppending, True) permet d'écrire en append dans le fichier. L'option True autorise la création du fichier si celui-ci n'existe pas.

Option Explicit
Call ShowFilesLotus

Private Sub ShowFilesLotus()
Const HARD_DISK = 3
Dim objWMIService, colDisks, colFiles
Dim objDico, objTabExt, objDisk, objFile
Dim wshShell
Dim strComputer, i
Dim cles, strList
Dim ObjRapport, ObjFilerapportConst ForWriting 2, ForAppending 8

strComputer = "."

objTabExt = "nsf"

Set wshShell = Wscript.CreateObject ("Wscript.Shell")

Set ObjRapport = CreateObject("Scripting.FileSystemObject" )
Set ObjFileRapport = ObjRapport.OpenTextFile("c:\Lotus.txt", ForAppending, True)

Set objDico = CreateObject("Scripting.Dictionary")
objDico.CompareMode = VBBinaryCompare

Set objWMIService = GetObject("winmgmts:" _
                    & "{impersonationLevel=impersonate}!\" _
                    & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
           ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")

For Each objDisk in colDisks
    Set colFiles = objWMIService.ExecQuery _
                   ("Select * from CIM_DataFile where Drive = '" &_
                     objDisk.Name & "' And Extension = '" & objTabExt &"'")
    For Each objFile in colFiles
        objDico.Add objFile.Name,""
    Next
Next
Set colFiles =  Nothing
Set colDisks =  Nothing
Set objWMIService = Nothing

cles = objDico.Keys
For i = 0 To objDico.Count-1
    ObjFileRapport.Writeline wshShell.ExpandEnvironmentStrings ("%COMPUTERNAME%") _
                             &vbTab& cles(i) &vbCr
Next
ObjFileRapport.WriteBlankLines(2)
ObjFileRapport.close
Set objDico = Nothing
Set wshShell = Nothing
End Sub

jean-marc
Commenter la réponse de cs_JMO
Signaler Commenter la réponse de mat76
Messages postés
9
Date d'inscription
mardi 22 mai 2007
Dernière intervention
13 octobre 2014
0
Merci
C'est exactement ce qu'il me fallait. Un grand merci pour votre aide.

Mathieu
Commenter la réponse de mat76
Signaler Commenter la réponse de mat76
Messages postés
9
Date d'inscription
mardi 22 mai 2007
Dernière intervention
13 octobre 2014
0
Merci
Bonjour,

Toujours par rapport à ce script, y a t'il un moyen d'exclure le répertoire Documents and Settings que la recherche?

Merci
Commenter la réponse de mat76
Signaler Commenter la réponse de cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
 26
0
Merci
Bonsoir,

La facilité serait

For Each objDisk in colDisks
    Set colFiles = objWMIService.ExecQuery _
                   ("Select * from CIM_DataFile where Drive = '" &_
                     objDisk.Name & "' And Extension = '" & objTabExt &"'")
    For Each objFile in colFiles
        If Mid(LCase(objFile.Path),2, 22) <> "documents and settings" Then
           objDico.Add objFile.Name,""
        End if
    Next
Next

Voir éventuellement la méthode ExpandEnvironmentStrings de l'objet WshShell.
De même, on pourrait gérer les exceptions du folder dans la query en ajoutant Path <> exclusion.

jean-marc
Commenter la réponse de cs_JMO
Signaler Commenter la réponse de mat76
Messages postés
9
Date d'inscription
mardi 22 mai 2007
Dernière intervention
13 octobre 2014
0
Merci
Bonjour,

Une nouvelle fois merci.

Il est vrai que vous m'avez maché le travail mais en ayant un code qui marche j'ai pu comprendre le fonctionnement et même appliquer certaines fonctions (ajout de la date..) , bon je l'accorde des fonctions à ma mesure.

Encore une question, connaissez vous un bon tutoriel sur le vbs reprenant les fonctions de base etc... ( c'est pas le tout de demander de l'aide , le mieux est de comprendre ;) ).


 


Slts


Mathieu
Commenter la réponse de mat76
Signaler Commenter la réponse de mat76
Messages postés
9
Date d'inscription
mardi 22 mai 2007
Dernière intervention
13 octobre 2014
0
Merci
Finalement, j'ai encore une petite question.

Pour l'exclusion de Documents and Settings cela marche.
J'ai essayer de rajouter Program Files aussi mais sans résultat probant puisque lorsque que j'essai de rajouter Porgram Files à votre code, l'exclusion ne fonctionne plus..

J'ai essayer comme ca mais j'ai pas du avoir un bon feeling

For Each objDisk in colDisks
    Set colFiles = objWMIService.ExecQuery _
                   ("Select * from CIM_DataFile where Drive = '" &_
                     objDisk.Name & "' And Extension = '" & objTabExt &"'")
    For Each objFile in colFiles
        If Mid(LCase(objFile.Path),2, 22) <> "documents and settings" or Mid(LCase(objFile.Path),2, 13) <> "program files" Then
           objDico.Add objFile.Name,""
        End if
    Next
Next

Et ce n' est pas le premier essai de modification que j'ai fait...
Comment puis je retirer de la recherche ces deux dossiers.

Merci

Slts
Commenter la réponse de mat76
Signaler Commenter la réponse de cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
 26
0
Merci
 Bonjour mat76,

Pour exclure les 2 dossiers:

        If Mid(LCase(objFile.Path),2, 22) <> "documents and settings" And _
           Mid(LCase(objFile.Path),2, 13) <> "program files" Then

jean-marc
Commenter la réponse de cs_JMO

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

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.