Dim dlg As New OpenFileDialog
Dim dt As DataTable = DataTables("t_file_operation")
Dim dtr As DataRow
Dim str As String
Dim Values() As String
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
'MessageBox.Show("你选择了" & dlg.FileNames.Length & "个文件, 分别是:")
For Each fl As String In dlg.FileNames
dtr = dt.AddNew
dtr("file01") = fl
Values = fl.split(".")
EncryptFile(fl, Values(0) & Date.Now & (".") & values(1), "fox123")
Next
End If