'新增记录时必须给该记录建立存档文件目录
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

'新增记录时必须给该记录建立存档文件目录                    Dim sml As String = Me.LinkLabel1.Text                                                    '调用窗体上的存档目录                    Dim file_name() A...