生成文件夹的程序
源码如下:
Public Class Form1
Public Shared path As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
path = ""
path = path + TextBox1.Text
My.Computer.FileSystem.CreateDirectory(path)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim uName As String
Dim i As Integer
Dim s As String
Dim r As String
uName = TextBox2.Text
For i = 1 To 100
'Randomize(DateTime.Now.ToOADate())
Randomize()
r = Format(Int(Rnd(100) * 10000), "9900000")
'r = r.Substring(2, r.Length - 2)
s = DateTime.Today.Year()
s = s & Format(DateTime.Today.Month(), "00")
s = s & Format(DateTime.Today.Day(), "00") & "_"
s = s & DateTime.Now.Hour()
s = s & DateTime.Now.Minute()
s = s & DateTime.Now.Second()
s = s & Format(DateTime.Now.Millisecond(), "000")
' MsgBox(s, vbDefaultButton1, Now())
s = s & "_" & r
My.Computer.FileSystem.CreateDirectory("D:\test\" & uName & s)
Next
End Sub
End Class