Dim Datei as io.file.fileinfo
Dim Suche as string
Dim Zahl as integer=0
Dim ZW as string
For each Datei in io.file.getfiles(Pfad,Suche & "*.*")
	ZW= Strings.right(Datei.name,Datei.name.length - Suche.length)
	if Zahl <  ZW.tointeger then Zahl=zw.tointeger
next
Zahl +=1
zw=suche & zw & ".EXT"
ZW= io.pathcombine (Pfad,zw)
Io.File.Create(zw)