Serial renamer

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

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)