VB.NET创建文件夹并复制文件的代码

                    '新增记录时必须给该记录建立存档文件目录
                    Dim sml As String = Me.LinkLabel1.Text                                                    '调用窗体上的存档目录
                    Dim file_name() As String
                    If Not Directory.Exists(sml) Then                                                         '检测是否存在目录
                        Directory.CreateDirectory(sml)                                                        '按路径创建新的文件夹
                        For i = 0 To ListBox1.Items.Count - 1
                            file_name = Split(ListBox1.Items(i).ToString, "\")                                '获取文件名
                            FileCopy((ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                        Next
                    Else
                        For i = 0 To ListBox1.Items.Count - 1
                            file_name = Split(ListBox1.Items(i).ToString, "\")                                '获取文件名
                            FileCopy((ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                        Next
                    End If