VB.NET文件存档设置

    Sub 对公采购文件存档设置() '文件存档
        '定义目录
        Dim rq As String = Format(Form账务统计_对公采购存档_编辑.DateTimePicker_rq.Value, "yyyymmdd")
        Dim gys As String = Form账务统计_对公采购存档_编辑.TextBox_gys.Text
        Dim sml As String = "\\Dxserver\文件\采购记录" & "\" & gys & "\" & rq
        If Form账务统计_对公采购存档_编辑.ListBox1.Items.Count > 0 Then  'ListBox1为空时不创建文件夹
            '文件存档部分
            Dim file_name() As String
            If Not Directory.Exists(sml) Then                                                         '检测是否存在sml目录
                Directory.CreateDirectory(sml)                                                        '创建新的sml目录
                For i = 0 To Form账务统计_对公采购存档_编辑.ListBox1.Items.Count - 1
                    file_name = Split(Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString, "\")                                '获取文件名
                    FileCopy((Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                Next
            Else
                For i = 0 To Form账务统计_对公采购存档_编辑.ListBox1.Items.Count - 1
                    file_name = Split(Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString, "\")                                '获取文件名
                    FileCopy((Form账务统计_对公采购存档_编辑.ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                Next
            End If
        Else
            Exit Sub
        End If
    End Sub