Question

pb中怎样用代码实现文件夹对文件夹进行复制

Answer 1

问：PowerBuilder的文件函数中没有拷贝函数，那么我将如何实现文件的拷贝呢？答：方法有二，一是用Windows的API函数CopyFile()，二是用DOS下的COPY命令。
方法一：
①定义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
方法二：
①先做一批处理文件lag.bat： copy c:\lag.txt c:\tmp\lll.txt
②在程序中调用此批处理文件： run("lag.bat")
强烈建议用WINDOWS中的API函数CopyFile()。
[注]CopyFile()函数
说明： 复制文件。返回值： ulong，非零表示成功，零表示失败。参数 类型及说明lpExistingFileName String，源文件名。lpNewFileName String，目标文件名。bFailIfExists ulng，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写。