Dim dlg As New FolderBrowserDialog If dlg.ShowDialog = DialogResult.Ok Then MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示") Dim ls As List(Of String) = Tables("表A").Current.DataRow.Lines("第一列") For Each s As String In ls FileSys.CopyFile(ProjectPath & "attachments/" & s, dlg.SelectedPath & "/" & s, True) Next End If
加好友 
发短信
Post By：2017/12/10 23:42:00 [显示全部帖子]
