Private Function GetNewFilename(ByVal sPath As String, _
  ByVal sFile As String) As String
 
  If File.Exists(sPath & sFile) Then
    Dim sExt As String = New FileInfo(sFile).Extension
    If sExt.Length > 0 Then
      sFile = sFile.Substring(0, sFile.Length - sExt.Length)
    End If
 
    Dim n As Integer = 0
    While File.Exists(sPath & sFile & CStr(n) & sExt)
      n += 1
    Wend
 
    sFile &= CStr(n) & sExt
  End If
 
  Return sFile
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de