VBS copie de fichiers avec recherche de nom

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBS copie de fichiers avec recherche de nom

skoizer

tripoux et tête de veau

Bonjour,
Je fais un script pour copier sur un espace reseau les raccourcis d'ordinateur (xp et w7)
Je ne voudrais copier que les raccourcis commençant par "outlook" et finissant par url

Code :

StrPathResult = "\\serveur\stockage$\log\raccourcisOwa\recup\"
StrPathDoc = ""
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set Network = Wscript.CreateObject("WScript.Network" )
If objFSO.FolderExists("C:\Users\Public\Desktop\Logiciels\" ) Then
StrPathDoc = "C:\Users\Public\Desktop\Logiciels\"
If objFSO.FolderExists("c:\Documents and Settings\All Users\Bureau\Logiciels\" ) Then
StrPathDoc = "c:\Documents and Settings\All Users\Bureau\Logiciels\"
end if
end if
if StrPathDoc = "" then WScript.Quit
StrNomMachine = ucase(Network.ComputerName)
If Not objFSO.FolderExists(StrPathResult & StrNomMachine) then
Set objFolder = objFSO.CreateFolder(StrPathResult & StrNomMachine)
end if
objFSO.CopyFile StrPathDoc & "Outlook*.url" , StrPathResult & StrNomMachine & "\" , OverwriteExisting

C'est la derniére partie qui ne fonctionne pas
"Outlook*.url"
si je met juste "*.url" ça fonctionne mais ça me renvoi trop de raccourci.
comment fair epour dire sur les fichiers qui commencent par "outlook"

merci

Message édité par skoizer le 05-06-2015 à 07:22:42

---------------
je veux tout, tout de suite, et gratuitement ! miladiou !

Publicité

olivthill

Il faudrait rajouter une boucle sur tous les fichiers et ne copier que ceux qui commencent par "Outlook" et se termine par "url".
Voici un bout de code, non testé, pour faire ça :

Code :

Set f = objFSO.GetFolder("." ) ' ou bien Set f = objFSO.GetFolder(StrPathDoc )
Set fc = f.Files
For Each f1 in fc
file_name = objFSO.GetFileName(f1)
If (left(file_name, 7) = "Outlook" And right(file_name, 4) = ".url" ) Then
objFSO.CopyFile StrPathDoc & f1.name, StrPathResult & StrNomMachine & "\" , OverwriteExisting
End If
Next

skoizer

tripoux et tête de veau

ok j'avais pensé a cette solution.
Je pensai qu'il y avait plus simple.
merci pour ton aide.

---------------
je veux tout, tout de suite, et gratuitement ! miladiou !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBS copie de fichiers avec recherche de nom

Sujets relatifs
Convertir un fichier Swf en fichier pour "écran de veille sous Windows	Copie parfois impossible à travers le réseau
Recherche de développeur de jeux tout niveau pour site	VBA avec recherche v
Problème fichier LUA	calculer la taille d'un fichier texte en C
decoupage d'un fichier CSV	Voir/Editer un fichier .bat
supprimer la premiere ligne d'un fichier	Recherche de fichier, copie à l'aide d'une liste
Plus de sujets relatifs à : VBS copie de fichiers avec recherche de nom

Page générée en 0.035 secondes