' Pfad + Dateiname trennen
sFile = Text10.Text
sPath = Left$(sFile, InStrRev(sFile, "\"))
sFile = Mid$(sFile, InStrRev(sFile, "\") + 1)
 
' Existiert die Datei schon?
If Dir$(App.Path & "\" & sFile) Then
  ' neuen Namen ermitteln
  sFile = ...
End If
 
' Datei kopieren
FileCopy sPath & sFile, App.Path & "\" & sFile
 
' TextBox aktualisieren
Text10.Text = App.Path & "\" & sFile

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de