[VBS] Copier en masse des dossiers

Copier en masse des dossiers [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 01-08-2008 à 13:51:16    

Bonjour,
 
Je voudrai pouvoir copier en masse des dossiers Windows. Pour le moment je fais un CopyFolder pour copier le dossier modèle vers un dossier cible.
Mon souhait serait d'avoir un fichier .txt où à l'intérieur il y a tous les noms de dossiers a créer. De cette manière mon VBS doit être cable d'aller lire le fichier .TXT et de créer le dossier de manière automatique.
 
Est-ce possible de faire cela ? Quelles sont les pistes ?
 
Merci d'avance.

Reply

Marsh Posté le 01-08-2008 à 13:51:16   

Reply

Marsh Posté le 20-08-2008 à 14:35:50    

Essai avec ça :

 
Code :
  1. Const cForReading = 1
  3. Dim lArrFolderList()
  5. ArrFolderList = LoadFolderList("d:\folderlist.txt" )
  6. For B = 0 To Ubound(ArrFolderList)
  7.     ## La tu mets ton copy folder ##
  8. Next
  10. Private Function LoadFolderList(pFolderList)
  12.   Dim Result
  13.   Dim lArrFolderList()
  15. Set fso = CreateObject("Scripting.FileSystemObject" )
  16. If fso.FileExists(pFolderList) = -1 Then
  17.  Set buffer = fso.OpenTextFile(pFolderList, cForReading)
  18.   I = 0
  19.  Do While Not buffer.AtEndOfStream
  20.    ReDim Preserve lArrFolderList(I)
  21.       lArrFolderList(I) = Lcase(buffer.ReadLine)
  22.       I = I + 1
  23.  Loop
  24. Else
  25.    lArrFolderList(I) = ""
  26.   End If
  27.  
  28.   Set fso = nothing
  29.   LoadFolderList = lArrFolderList
  30.  
  31. End function



Message édité par tecoxe le 20-08-2008 à 14:36:51
Reply

Sujets relatifs:

Leave a Replay

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