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
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