递归创建文件名

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