Serial renamer

0/5 (3 avis)

Vue 6 175 fois - Téléchargée 314 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
hvb Messages postés 939 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 27 janvier 2009 3
27 oct. 2002 à 09:55
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)
cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007
26 oct. 2002 à 21:27
j'aurai besoin d'un truc qui renome des dossiers dans un dossier.

héhé
cs_seyev Messages postés 93 Date d'inscription samedi 9 juin 2001 Statut Membre Dernière intervention 6 mai 2005 1
25 oct. 2002 à 23:41
hehe un petit quelque chose dont j'aurai l'utilité, mais que je n'ai jamais eu envie de coder... merci ;)
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.

Du même auteur (cs_Majen)