(vbs)miniscule ou majuscule tous les dossiers et fichiers ainsi que tous les sous-fichiers et sous-dossiers

Commenter

Contenu du snippet

Script VBS.
Met en Minuscules ou en majuscules tous les Fichiers et dossiers dans le repertoire courant
Et traite aussi tous les sous-dossiers et fichiers.
Fonction Recursive qui ne consomme pas trop de memoire.

Source / Exemple : 


'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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.