Serial renamer

Soyez le premier à donner votre avis sur cette source.

Vue 5 865 fois - Téléchargée 280 fois

Description

pour renommer tout les fichiers d'un dossier...

fichier.EXE, FICHIER.exe, FiCHIEr.Exe... => Fichier.exe

Source / Exemple :


Dim nFile, nMaj, nNewName, nOldName As String

Private Sub Command1_Click()
For i = 0 To File1.ListCount
  nOldName = File1.List(i)
  If nOldName <> "" Then
    nFile = LCase$(nOldName)
    nMaj = Mid$(nFile, 1, 1)
    nMaj = UCase$(nMaj)
    nNewName = nMaj & Mid$(nFile, 2)
    Name Dir1.Path & "\" & nOldName As Dir1.Path & "\" & nNewName
  End If
Next i
File1.Refresh
End Sub

Private Sub File1_Click()
nOldName = File1
nFile = LCase$(nOldName)
nMaj = Mid$(nFile, 1, 1)
nMaj = UCase$(nMaj)
nNewName = nMaj & Mid$(nFile, 2)
File1.ToolTipText = nName
End Sub

Private Sub Dir1_Change()
File1 = Dir1
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_seyev
Messages postés
93
Date d'inscription
samedi 9 juin 2001
Statut
Membre
Dernière intervention
6 mai 2005
1 -
hehe un petit quelque chose dont j'aurai l'utilité, mais que je n'ai jamais eu envie de coder... merci ;)
cs_steven007
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007
-
j'aurai besoin d'un truc qui renome des dossiers dans un dossier.

héhé
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1 -
j'ai fait un truc semblable (mais un peu plus lourd) pour changer les extensions de certains fichiers (et donc tromper par l'apparence collegues et patron)

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.