Dim NewFile As String
Dim Ext As String
Dim nPos As Long
...
 
file = Dir(oFolder.self.Path & "\*.*")
While file <> ""
  nPos = InStrRev(file, ".")
  If nPos > 0 Then
    NewFile = LCase$(Left$(file, nPos - 1)) & Mid$(file, nPos)
  Else
    NewFile = LCase$(file)
  End If
 
  If file <> NewFile Then
    Name oFolder.self.Path & "\" & file As oFolder.self.Path & "\" & NewFile
  End If
 
  file = Dir
Wend

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de