[VBS] Copier en masse des dossiers

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS] Copier en masse des dossiers

_ludovic

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.

Publicité

tecoxe

Essai avec ça :

Code :

Const cForReading = 1
Dim lArrFolderList()
ArrFolderList = LoadFolderList("d:\folderlist.txt" )
For B = 0 To Ubound(ArrFolderList)
## La tu mets ton copy folder ##
Next
Private Function LoadFolderList(pFolderList)
Dim Result
Dim lArrFolderList()
Set fso = CreateObject("Scripting.FileSystemObject" )
If fso.FileExists(pFolderList) = -1 Then
Set buffer = fso.OpenTextFile(pFolderList, cForReading)
I = 0
Do While Not buffer.AtEndOfStream
ReDim Preserve lArrFolderList(I)
lArrFolderList(I) = Lcase(buffer.ReadLine)
I = I + 1
Loop
Else
lArrFolderList(I) = ""
End If
Set fso = nothing
LoadFolderList = lArrFolderList
End function

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBS] Copier en masse des dossiers

Sujets relatifs
Copier coller VBA	Afficher le pic de charge dédiée via un script WMI ou VBS (BGInfo)
convertir DTS en BAS (VBs)	[ACTIVE DIRECTORY - VBS] Ajout d'un utilisateur a un Groupe
[VBS] Ouvrir un lecteur spécifique.	VBS : changer d'onglet
VBS : tester une liste	copier une table d'une bdd postgresql
Calculer nombre de jours entre deux dates en VBS	copier un texte sur excelet le remplacer dans word
Plus de sujets relatifs à : [VBS] Copier en masse des dossiers

Page générée en 0.028 secondes