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