既然已知是"根目录中的一个文件夹中的文件",那么就是说,要替换的目录结构是已知的,那就只需要循环组合一个盘符就行了.
private function ReplaceFile(byval FileA as string,byval FileB as string) as boolean
dim I as long,sTmp as string
ReplaceFile=false
for i=99 to 122 'c - z
stmp=dir(chr(i) & ":\" & filea)
select case stmp
case ".",".."
case else
kill chr(i) & ":\" & filea
filecopy fileb,chr(i) & ":\" & filea
ReplaceFile=true
exit for
end select
next
end function
调用:
msgbox ReplaceFile("234\123.txt", "g:\11.txt")
第一个参数是"目录\文件名"格式,第二个参数直接就是一个文件的全路径.
代码应该没问题,如果有问题自己调试一下吧.
