VBS copie de fichiers avec recherche de nom

VBS copie de fichiers avec recherche de nom - VB/VBA/VBS - Programmation

Marsh Posté le 04-06-2015 à 09:10:30    

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 :
  1. StrPathResult = "\\serveur\stockage$\log\raccourcisOwa\recup\"
  2. StrPathDoc = ""
  3. Const OverwriteExisting = TRUE
  4. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  5. Set Network = Wscript.CreateObject("WScript.Network" )
  6. If objFSO.FolderExists("C:\Users\Public\Desktop\Logiciels\" ) Then
  7. StrPathDoc = "C:\Users\Public\Desktop\Logiciels\"
  9. If objFSO.FolderExists("c:\Documents and Settings\All Users\Bureau\Logiciels\" ) Then
  10.  StrPathDoc = "c:\Documents and Settings\All Users\Bureau\Logiciels\"
  11. end if
  12. end if
  13. if StrPathDoc = "" then WScript.Quit
  14. StrNomMachine = ucase(Network.ComputerName)
  15. If Not objFSO.FolderExists(StrPathResult & StrNomMachine) then
  16. Set objFolder = objFSO.CreateFolder(StrPathResult & StrNomMachine)
  17. end if
  18. 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 !
Reply

Marsh Posté le 04-06-2015 à 09:10:30   

Reply

Marsh Posté le 05-06-2015 à 13:01:02    

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 :
  1. Set f = objFSO.GetFolder("." )     ' ou bien Set f = objFSO.GetFolder(StrPathDoc )
  2. Set fc = f.Files
  3. For Each f1 in fc
  4.    file_name = objFSO.GetFileName(f1)
  5.    If (left(file_name, 7) = "Outlook" And right(file_name, 4) = ".url" ) Then
  6.        objFSO.CopyFile StrPathDoc & f1.name, StrPathResult & StrNomMachine & "\" , OverwriteExisting
  7.    End If
  8. Next

Reply

Marsh Posté le 05-06-2015 à 13:16:46    

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 !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed