当前位置: 代码迷 >> PB >> pb FileExists FileCopy 访问 共享文件有关问题
  详细解决方案

pb FileExists FileCopy 访问 共享文件有关问题

热度:635   发布时间:2016-04-29 05:38:59.0
pb FileExists FileCopy 访问 共享文件问题
在代码里面用 FileExists 判断一个网络文件夹文件是否存在,即使这个文件存在返回都是 false,我在本机可以打开那个共享文件夹,而且 相应读写权限都是有的,copy也是同样问题。 如果是 fileexists判断本机文件就可以成功。

string ls_filepath="\\dzyhs\share\common.pbl"

string ls_filename="common.pbl"
FileCopy(ls_filepath,"E:\dt\"+ls_filename,true)
if FileExists ( ls_filepath) then

FileCopy(ls_filepath,"E:\dt\"+ls_filename,true)
else
messagebox("错误","无法获取共享文件:"+ls_filepath)
 close(parent)
 return -1
end if


------解决方案--------------------
引用:
刚看到网上有下面复制方式,还没有测试,想问下 如果有这样的方式,在打包的时候Kernel32.dll 这个要打包进去吗??


FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll" 
  调用:
  string ls_source, ls_des 
  boolean lb_flag, lb_rtn 

  lb_flag = false 
  ls_source = "c:\book.xls" //源文件
  ls_des = "C:\tmp\111.xls" //目标文件
  lb_rtn = CopyFileA(ls_source, ls_des, lb_flag) 
  MessageBox("文件拷贝", string(lb_rtn))

Kernel32.dll 这个是系统文件,不需要打包