===========================================================
怎样在PB中实现文件的拷贝与删除 (转)
===========================================================
作者: worldblog(http://worldblog.itpub.net)
发表于: 2008.06.19 16:06
分类: 一般分类
出处: http://worldblog.itpub.net/post/34152/464662
---------------------------------------------------------------
发表于: 2008.06.19 16:06
分类: 一般分类
出处: http://worldblog.itpub.net/post/34152/464662
---------------------------------------------------------------
怎样在PB中实现文件的拷贝与删除 (转)
怎样在PB中实现文件的拷贝与删除,可借助外部函数
可用api函数实现:
1、文件拷贝
函数声明:
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:tmp111.xls" //目标文件
lb_rtn = CopyFileA(ls_source, ls_des, lb_flag)
MessageBox("文件拷贝", string(lb_rtn))
2、删除文件
函数声明:
FUNCTION boolean DeleteFileA(ref string filename) LIBRARY "Kernel32.dll"
调用:
string ls_file
boolean lb_rtn
ls_file = "C:tmp111.xls"
lb_rtn = DeleteFileA(ls_file)
MessageBox("文件删除", string(lb_rtn))
或者用PB本身的函数FileDelete()来删除文件。
怎样在PB中实现文件的拷贝与删除,可借助外部函数
可用api函数实现:
1、文件拷贝
函数声明:
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:tmp111.xls" //目标文件
lb_rtn = CopyFileA(ls_source, ls_des, lb_flag)
MessageBox("文件拷贝", string(lb_rtn))
2、删除文件
函数声明:
FUNCTION boolean DeleteFileA(ref string filename) LIBRARY "Kernel32.dll"
调用:
string ls_file
boolean lb_rtn
ls_file = "C:tmp111.xls"
lb_rtn = DeleteFileA(ls_file)
MessageBox("文件删除", string(lb_rtn))
或者用PB本身的函数FileDelete()来删除文件。











