Aller au contenu

Personnaliser les couleurs !



Photo

[RÉSOLU] Petit script de création de dossier


  • Veuillez vous connecter pour répondre
21 réponses à ce sujet

#21 percubabs

percubabs

    Chevalier jedi

  • Stormtrooper
  • 2 010 messages

Posté 19 février 2013 - 13:32

ok c'est bon

Dim path
Dim stRep
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "E:\SOCIETE"

if oFSO.FolderExists(stRep) Then
	for each fSociete in oFSO.GetFolder(stRep).SubFolders
								 Wscript.Echo fSociete.Name
		for each unDossier  in  oFSO.GetFolder(stRep & "\" & fSociete.Name).SubFolders

			If unDossier.Name = "Juridique" then
   path = stRep & "\" & fSociete.Name & "\Juridique"
				Set fJuridique=oFSO.GetFolder (stRep & "\" & fSociete.Name & "\Juridique")
	  if not oFSO.FolderExists(path & "\Social") Then
	  fJuridique.subFolders.Add("Social")
	 end if
				
	 if not oFSO.FolderExists(path &"\Société") Then
	  fJuridique.subFolders.Add("Société")
	 end if
			end if
		next
	next
end if

Merci pour tes explications et ton temps

sig-194.png
Rejoignez la Team NEXT-INpact World community grid. Inscriptions. Forum

 

i7 4771 / q87 /32 go ddr3 1600 / 7970 water oc @1300 gpu 1800 ram / ssd 840 pro 256 go / raid 0 caviar black 2x1to / caviar green 1to /


#22 malock

malock

    Ewok

  • INpactien
  • 32 messages
  • Lieu:La Rochelle

Posté 19 février 2013 - 14:11

Cool ! Parfait !
De rien de rien, c'était un plaisir.

Hésite pas si tu as besoin d'un peu d'aide.

Bonne continuation ! :byebye:




0 utilisateur(s) li(sen)t ce sujet

0 membre(s), 0 invité(s), 0 utilisateur(s) anonyme(s)