关于文件复制的问题？

[unsv29mj]

文件夹A的里面有1个text文件(名字是C.text）和 文件夹B，



而文件夹B里面也有个1个text文件(名字也是C.text）


现在要求：用上文中提到的第二个C.text将第一个C.text替换掉，请问如何弄？

多谢！

现在不知道文件夹A位于哪个硬盘分区，只知道文件夹A位于某个硬盘分区的根目录下！
另外：最好不要弹出“此文件已经存在，是否替换”之类的窗口。

想了好久不知道怎么弄！！

HELP.............

[Soyokaze]

直接用API函数CopyFile()即可。
至于定位c.txt可以搜索，用FindFirstFile

[unsv29mj]

本人菜鸟 看不懂啊

[Soyokaze]

去MSDN搜索这两个函数，通过文档就可以学会使用。VB里调用API需要先声名。

[嗷嗷叫的老马]

既然已知是"根目录中的一个文件夹中的文件",那么就是说,要替换的目录结构是已知的,那就只需要循环组合一个盘符就行了.

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")

第一个参数是"目录\文件名"格式,第二个参数直接就是一个文件的全路径.

代码应该没问题,如果有问题自己调试一下吧.