phbiohazard
Messages postés6Date d'inscriptionmardi 6 novembre 2007StatutMembreDernière intervention 9 novembre 2007
-
8 nov. 2007 à 14:55
phbiohazard
Messages postés6Date d'inscriptionmardi 6 novembre 2007StatutMembreDernière intervention 9 novembre 2007
-
9 nov. 2007 à 12:19
Bonjour a tous,
Je souhaiterai savoir si qqun a un bout de script vbs qui parse la totalite d'un disque dur et me revoie le chemin et le nom du fichier si l'extension d'un fichier particulier demandé est présent.
Ex : renvoyer le chemin et le nom d'un fichier ayant pour extention .VBS
Merci pour votre aide
Cordialement
A voir également:
[VBS Debutant] trouver un fichier dans une arborescence..
phbiohazard
Messages postés6Date d'inscriptionmardi 6 novembre 2007StatutMembreDernière intervention 9 novembre 2007 8 nov. 2007 à 15:31
Merci RenField pour ta reponse :-)
Mon souhait serait de faire une recherche de tous les fichiers .VBS présent sur mon disque dur C, y compris dans les repertoires cachés.
Je recherche des exemples de scripts de ce type pour analyse, car étant grand débutant (j'ai commence VBS avant hier ((() cela m'aiderait a mieux comprendre ce language.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 8 nov. 2007 à 15:33
Salut,
Je pense qu'en passant un peu de temps dans la section Source, et sur www.codyx.org, tu devrais pouvoir trouver assez aisément tout ce dont tu as besoin.
phbiohazard
Messages postés6Date d'inscriptionmardi 6 novembre 2007StatutMembreDernière intervention 9 novembre 2007 8 nov. 2007 à 15:49
Merci Ju£i?n, mais je n'ai rien trouver de concret...
Trouver un fichier dans un repertoire, oui, et d'alleurs ma fonction est deja developpee, mais parcourir un disque complet, et qui me remonte le chemin complet et le nom du fichier comme c:\temp\rep1\sousreptest\test.vbs et bien je n'ai rien trouver
D'ou mon post sur ce site ;-)
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
À la base, c'était pour exploiter sous Excel, mais ça peut être modifié assez simplement pour autre usage. Seul problème, je ne connais pas vraiment VBS pour savoir si ça peut passer (?) L'important dans ton cas, je pense, est la récursivité... une fonction qui s'appelle elle-même pour être en mesure de lire les sous-répertoires.
phbiohazard
Messages postés6Date d'inscriptionmardi 6 novembre 2007StatutMembreDernière intervention 9 novembre 2007 9 nov. 2007 à 12:19
Bonjour a Tous,
Bon, je tatonne, mais j'avance ;-)
Voici la premiere partie de mon code qui, théoriquement, si j'n crois mon msgbox me remonte bien les noms des répertoires, sauf que j'aurai bien aimé avoir dans "folder" l'antislash à la fin car cela pose probleme avec la deuxieme partie de mon code...
PARTIE 1 : Scan d'arborescence :
Dim folder, fso, folderPath, filepath
Set fso = CreateObject("Scripting.FileSystemObject")
folder = "c:\test_vbs"
getFolder(folder)
set fso = nothing
Function getFolder(root)
dim folders, folder, file, files
For Each folder In fso.getFolder(root).SubFolders
getFolder(fso.GetAbsolutePathName(folder))
myvar = MsgBox(folder, 6, " Name_DIR")
Next
End Function
Voici mon 2eme programme que je voudrais joindre a ce premier programme, ce qui me pose des problemes d'integrations.
En effet, ce 2eme programme parse tous les fichiers d'un répertoire déclaré et cherche une extension MBL et vient remplacer une chaine de caracteres.
Ce 2eme programme seul fonctionne a merveille, mais les deux programmes associes ne fonctionnent pas.
Si qqun pourrait m'aider a faire cette integration, ce serait super !!
Voici le code de mon 2eme programme :
On Error Resume NextConst ForReading 1, ForWriting 2
Set FSO = CreateObject("Scripting.FileSystemObject")
repScan = "c:\test_vbs"
For Each PossibleFile in FSO.GetFolder(repScan).Files
If UCase(FSO.GetExtensionName(PossibleFile)) = "MBL" Then _
FSO.CopyFile repScan & PossibleFile.Name, repScan & PossibleFile.Name & ".BKK" ,True
set suspectOuvrir = FSO.OpenTextFile(repScan & PossibleFile.Name, ForReading)
suspect = suspectOuvrir.readAll
suspectOuvrir.Close
If UCase(FSO.GetExtensionName(repScan & PossibleFile)) = "MBL" Then _
set suspectRecord = FSO.OpenTextFile(repScan & PossibleFile.Name, ForWriting)
pattern1 = "
http://www.tf1.fr "
suspect= replace(suspect, pattern1, "************REMPLACE**********")
suspectRecord.Write suspect
suspectRecord.Close