dim filename as string
dim fuzhiname as string
fuzhiname="复制名字.txt" '包括后缀
filename = dir("d:\aaa\" & fuzhiname & "复制名字*.txt")
do while filename<>""
if filename<>fuzhiname then call filecopy("d:\aaa\" & filename,"d:\aaa\" & filename")
filename = dir
loop
不是完全一样的——这个是跟什么比较的啊