设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2876|回复: 12
打印 上一主题 下一主题

[Access本身] 文件管理工具!

[复制链接]
跳转到指定楼层
1#
发表于 2008-4-23 17:26:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位老大,如果想要对查询结果中的记录的文件 进行可选目录复制,应该如何完成?

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-4-24 00:18:38 | 只看该作者
可以看下代码吗??
3#
 楼主| 发表于 2008-4-24 11:42:13 | 只看该作者
没人回,自己顶一下
4#
发表于 2008-4-24 16:21:14 | 只看该作者
我要mdb的[:30],可以吗???
5#
 楼主| 发表于 2008-4-24 17:29:40 | 只看该作者
好的。
6#
发表于 2008-4-24 19:37:16 | 只看该作者
[:50] 多谢!!!
7#
发表于 2009-2-17 09:56:30 | 只看该作者
好的。
8#
发表于 2009-6-16 12:17:02 | 只看该作者
顶了看看
9#
发表于 2009-6-16 12:17:14 | 只看该作者
顶了看看
10#
发表于 2009-6-16 13:01:03 | 只看该作者
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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-14 05:32 , Processed in 0.199182 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表