SERIAL RENAMER

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 zip

• TEST DE LUCIDIDÉ
• MORSE
• INTRODUCTION AU VISUAL BASIC
• SUBSTITUTION POLYALPHABÉTIQUE (VIGENERE)
• ECOUTEZ 205 RADIOS SUR VOTRE PC SANS PUB

• WORKTRACKER
• ETEINDRE L'ORDINATEUR DE DIFFERENTES MANIÈRES
• TABLEAU PERIDOQUES
• BUDGET MENSUEL
• VOCAL CITATION

• MP3REN - RENOMMEUR DE MP3
• [VB6] YMXPLORER : DOUBLE EXPLORATEUR DE FICHIERS
• SERIAL RENAMER
• FILESERIERENAME 1.0 - RENOMMEZ EN SERIE VOS FICHIERS (PHOTOS) - PAR ET1
• RENOMMEUR DE FICHIERS EN LOT