Private Function GetFreeFilename(Path as String, Prefix as String, Appendix as _
  String) as String
 
' Path ist der Verzeichnispfad
' Prefix ist der Dateiname z.B.: Test
' Appendix ist die Dateierweiterung z.B.: jpg
 
Dim i as Integer
For i = 0 To 1000
 If Dir(Path & "\" & Prefix & Cstr(i) & "." & Appendix) = "" Then
  GetFreeFilename = Path & "\" & Prefix & Cstr(i) & "." & Appendix
  Exit Function
 End If
Next i
 
End Function