(VBS)MINISCULE OU MAJUSCULE TOUS LES DOSSIERS ET FICHIERS AINSI QUE TOUS LES SOUS-FICHIERS ET SOUS-DOSSIERS

'MET EN MAJUSCULES OU EN MINUSCULES TOUS LES FICHIERS
' ET DOSSIERS AINSI QUE TOUS LES SOUS-FICHIERS et SOUS-DOSSIERS
'--------------------------------------------------------------
'Je pense que cette source sera utile a tous 
'Si vous avez des amiliorations n hesiter pas 
'http:\\jonathan.antier.free.fr page contact
Set fso	= CreateObject("Scripting.FileSystemObject")
'Repertoire Courant
path = fso.GetAbsolutePathName(".")
Dim ext_tmp
ext_tmp = "tmp"
'Fonction qui traite indepandament les fichiers et les dossiers
'En les Passant temporairement en temporaire (.tmp)
Function UpperF(pointer,Style)
	Dim fn,Ext,UExt
	For Each fn in pointer
		Ext = split(fn.name,".")
		UExt=UBound(Ext)
		if ( UCase(Ext(UExt)) <> UCase(ext_tmp)) then
			fn.name = fn.name&"."&ext_tmp
		end if
		if (Style = "MIN") then
			fn.name=LCase(left(fn.name,(len(fn.name)-4)))
		elseif (Style = "MAJ") then
			fn.name=UCase(left(fn.name,(len(fn.name)-4)))
		end if
	Next
End Function
'Fonction lance le traitetement les Fichier et les Dossiers dans un Dossier
Function UpperCase(Valeur,Chem)
	Set f = fso.GetFolder(Chem)
	Set fl = f.Files
	Set fc = f.SubFolders
	UpperF fc,Valeur
	UpperF fl,Valeur
End Function
'Fonction qui Traite les Dossiers en profondeur
Function AllSubFolder(Valeur,Chem)
	Set fs = fso.GetFolder(Chem)
	Set fsc = fs.SubFolders
	UpperCase Valeur,Chem
	For Each Fsn in fsc
		NFsn = Chem&"\"&Fsn.name
		AllSubFolder Valeur,NFsn
	Next
End Function

'Prend Deux Valeur :
'MIN -> Met en Minuscules
'MAJ -> Met en Majuscules
AllSubFolder "MIN",path 

21 octobre 2005 12:16:57 :

Un petit Msgbox en commentaire oublier