Dim dlg As New FolderBrowserDialog
Dim f As String = Tables("表A").Cols("文件管理").DataCol.DefaultFolder
If f Is Nothing Then
f = ProjectPath & "Attachments\"
Else
f = f & "\"
End If
If dlg.ShowDialog = DialogResult.Ok Then
msgbox(dlg.SelectedPath )
For Each r As Row In Tables("表A").rows
Dim file = f & r("文件管理")
If FileSys.FileExists(file) Then
FileSys.CopyFile(file,dlg.SelectedPath & r("文件管理"),True)
Else
msgbox("文件不存在:" & file)
End If
Next
End If