查找文件及复制移动

cjssxo · 发表于 2012-7-19 05:49:51

在窗体文本框中输入一个值,在文件夹1中模糊查找,如果存在则复制到文件夹2中.见附件

yehf · 发表于 2012-7-19 10:10:16

Private Sub cmd0_Click()

Dim dirname As String
Dim mypath As String

mypath = CurrentProject.Path & "\"
dirname = Dir(mypath & "文件夹1\*" & Me.txt0 & "*.fsy")

If dirname = "" Then GoTo Noexits
Do While dirname <> ""
Name mypath & "文件夹1\" & dirname As mypath & "文件夹2\" & dirname
dirname = Dir
Loop

MsgBox "文件移动完成!"
Exit Sub

Noexits:
MsgBox "找不到你输入的文件"

End Sub

cjssxo · 发表于 2012-7-21 17:46:23

旅游才回来,谢谢yehf.

wufeng980114 · 发表于 2012-9-18 21:28:32

不错，学习了

pyh512 · 发表于 2016-5-4 22:58:58

我是想批量复制文件夹1中的所有文件到文件夹2中，能帮我写段来参考不？

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 查找文件及复制移动

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)