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
博客展示了一个名为getname的公共函数,该函数接收两个字符串参数,用于生成文件路径。若路径文件已存在,会递归调用函数;若不存在,则创建文件并返回路径,涉及字符串操作和文件处理。
172

被折叠的 条评论
为什么被折叠?



