Private Sub Rename(Path As String, NewExt As String)
  Dim sFiles() As String
  Dim nCount As Long
  Dim i As Long
  Dim nBytes As Currency
  Dim nPos As Long
 
  If Right$(Path, 1) <> "\" Then Path = Path & "\"  
 
  nCount = VBEx_FileCount(Path, 0, "*.*", nBytes)
  If nCount >= 0 Then
    ReDim sFiles(nCount)
    nCount = VBEx_FileList(Path, 0, "*.*", sFiles(), nBytes)
    For i = 0 To nCount
      nPos = InStrRev(sFiles(i), ".")
      Name sPath & sFiles(i) As sPath & Left$(sFiles(i), nPos - 1) & NewExt
  Next i
  End If
End Sub

Rename "d:\temp", ".bmp"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de