遞歸創建文件名
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
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
LINQ首部曲: LINQ To Object Part 2 - Using VB.NET
LINQ首部曲: LINQ To Object Part 2 - Using VB.NET 文/黃忠成 續前文,這一篇一樣是發表於R
Code6421
2020-07-07 23:14:11
VB.NET編程中常見錯誤
1. 並未將物件參考設定為物件的執行個體。 出現該問題的原因,通常是由於沒有對對象進行初始化,而程序員卻在程序中要使用 這個對象造成的。
studyandhappy
2020-07-07 19:14:04
vb.net相關
studyandhappy
2020-07-07 19:14:01
.NET程序員的數據庫面試題及答案
jadeflute
2020-07-07 17:32:10
VB 常用 快捷鍵 熱鍵 程序員
woshi1douzi
2020-07-07 17:31:44
MSIL - the language of the CLR (Part 1)
Anglewing_nwpu
2020-07-07 04:44:16
今天才發現 And 和 AndAlso 的區別
AntingZ
2020-07-06 23:17:38
ConvertHelper與泛型集合
南-柯
2020-07-06 20:04:01
對SqlHelper的理解
南-柯
2020-07-06 20:04:01
使用 AJAX 擴展器自定義控件
Figure A MaskedEdit 擴展器屬性 屬性 默認值 說明 AcceptAMPM False 一個布爾屬性,用於指示是否應使用 AM/PM 符號。 AcceptNegative None
祥洋
2020-07-06 07:50:50
DataTable的行列轉換
Protected Function ColumnToRow(ByVal src_dt As System.Data.DataTable, _ Optional ByVal colIn
祥洋
2020-07-06 07:50:50
一個殺死EXCEL的程序
Dim pTemp As System.Diagnostics.Process()pTemp = System.Diagnostics.Process
kevin521
2020-07-06 07:19:44
VB.NET 拖動無邊框的窗體
kevin521
2020-07-06 07:19:44