Office中国论坛/Access中国论坛

标题: 文件管理工具！ [打印本页]

作者: g97126 时间: 2008-4-23 17:26
标题: 文件管理工具！
各位老大，如果想要对查询结果中的记录的文件进行可选目录复制，应该如何完成？

[ 本帖最后由 g97126 于 2008-4-24 17:30 编辑 ]

作者: fxtest 时间: 2008-4-24 00:18
可以看下代码吗？？

作者: g97126 时间: 2008-4-24 11:42
没人回，自己顶一下

作者: fxtest 时间: 2008-4-24 16:21
我要mdb的[:30]，可以吗？？？

作者: g97126 时间: 2008-4-24 17:29
好的。

作者: fxtest 时间: 2008-4-24 19:37
[:50] 多谢！！！

作者: 7777777 时间: 2009-2-17 09:56
好的。

作者: 346869404aaa 时间: 2009-6-16 12:17
顶了看看

作者: sgrshh29 时间: 2009-6-16 13:01
1# g97126

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

作者: 黑芝麻 时间: 2010-3-18 20:05
虚心请教热心指导手把青秧插滿田，低頭便見水中天；心地清淨方為道，退步原來是向前。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)