Private Sub CmdCopy_Click()
strfilefullname = Me.总表2.Form.Controls("文件地址")
Set fld = Application.FileDialog(msoFileDialogFolderPicker)
fld.Show
If fld.SelectedItems(1) <> "" Then
strfldname = fld.SelectedItems(1)
FileCopy strfilefullname, strfldname & "\" & Dir(strfilefullname)
Else
Exit Sub
End If
End Sub