急求：如何在pb下实现把一个文件更改名称，然后拷贝到别的路径下/？在线求解

[snowolf1979]

分不够，可以再加

[qqf]

文件改名：
FUNCTION ulong MoveFile(ref string lpExistingFileName,ref string lpNewFileName) LIBRARY "kernel32.dll" ALIAS FOR "MoveFileA"
【别名】
MoveFileA
【说明】

移动文件。如dwFlags设为零，则MoveFile完全等价于MoveFileEx
【参数】
lpExistingFileName - String，欲移动的文件名

lpNewFileName -- String，新文件名
dwFlags
Long，一个或多个下述常数
MOVEFILE_REPLACE_EXISTING
如目标文件存在，则将其替换
MOVEFILE_COPY_ALLOWED
如移动到一个不同的卷，则复制文件并删除原来的文件
MOVEFILE_DELAY_UNTIL_REBOOT
移动操作在系统下次重新启动时正式进行。这样便可在Windows
NT中改换系统文件
【返回值】

Long，非零表示成功，零表示失败。会设置GetLastError

[qqf]

文件拷贝 ：
①定义API：
Function ulong CopyFile(ref string lpExistingFileName,ref string lpNewFileName,ulong bFailIfExists) LIBRARY "kernel32.dll" ALIAS FOR "CopyFileA"

②脚本：
string str_source, str_des
ulong ulng_result

str_source = "c:\lag.txt" //源文件
str_des = "c:\tmp\111.txt" //目标文件
ulng_result=CopyFile(str_source,str_des, 0)
if ulng_result<>0 then
messagebox("OK","拷贝文件成功!")
end if

[handi]

pb自己带函数：

FileCopy ( sourcefile, targetfile {, replace } )
查帮助

[runsoft]

文件拷贝之后，把目标名称写成新的文件名称就可以自动修改名字。qqf(我就是我)写的很详细了哦，呵呵。

[rogery]

唉，来晚了，明天一定早来^^^^^^^^^^^^

[你的昵称已存在]

up

[96pp]

pb8用
pb自己带函数：

FileCopy ( sourcefile, targetfile {, replace }
pb7调用API函数
文件拷贝 ：
①定义API：
FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll"

②脚本：
string ls_source, ls_object，ls_docname
ulong ulng_result
li_value = GetFilesaveName("选择数据库文件",ls_object,ls_docname,"文件","文件 (*.*),*.*")
ls_source = "c:\lag.txt" //源文件
ls_object= CopyFileA(ls_source,ls_object,lb_flag)
if ulng_result<>0 then
messagebox("OK","拷贝文件成功!")
end if