生成文件夹程序

来源：互联网发布：苍穹不动产测绘软件编辑：程序博客网时间：2024/06/03 21:58

生成文件夹的程序

源码如下：

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