Public Function GetName (Byval Name As String, Byval Num As String) AS String
DIM pathstring as string = "f: /" & name & num.tostring & ".txt"
IF file.exists (pathstring) THEN
Num = 1
Return GetName (Name, Num)
Else
File.create (pathstring)
Return PathString
END IF
END FUNCTION
