PB文件操作函数


1、FileCopy () 函数

FileCopy ( 源文件, 目标文件{, replace } )

源文件:要复制的文件的名称的字符串

目标文件:要复制到的文件的名称的字符串

replace :指定是否替换目标文件的布尔值(true),为true时替换目标文件,为false时不替换(默认值为false)

返回值:

1 -成功

-1 打开源文件出错

-2 写入目标文件出错

注:如果没有为 源文件 或 目标文件 指定完全限定的路径,则该函数将相对于当前目录工作。如果没有指定replace参数,则FileCopy函数不会替换目标目录中与在targetfile参数中指定的名称相同的文件(这相当于将replace值设置为false)。

实例:

下面的示例将文件从当前目录复制到另一个目录,并将返回值保存在一个变量中。它不替换同名文件,如果一个文件已经存在于目标目录:

integer li_FileNum
li_FileNum = FileCopy ("jazz.gif" , &
   "C:\emusic\jazz.gif", FALSE)


2、FileMove()
FileMove ( 源文件,目标文件)
源文件:要移动的文件的名称的字符串
目标文件:要移动文件的位置的名称的字符串

返回的值如下:

1 -成功

-1打开源文件出错

-2写入目标文件出错

注:如果目标目录中已经存在同名文件,则无法写入目标文件。如果要复制目标文件,可以使用FileCopy并将replace参数设置为true。

实例:本例将文件从当前目录移动到另一个目录,并将返回值保存在li_FileNum变量中:
integer li_FileNum
li_FileNum = FileMove ("june.csv", &
   "H:/project/june2000.csv" )

3、创建文件夹
CreateDirectory ( 目录名称)
目录名称:要创建的目录的名称的字符串
如果函数成功,返回1;如果发生错误,返回-1。
实例:本例在当前路径中创建一个新的子目录,然后将新的子目录设置为当前目录:
string  ls_path="my targets"
integer li_filenum
CreateDirectory ( ls_path )
li_filenum = ChangeDirectory( ls_path )

 4、判断文件夹是否存在

DirectoryExists(目录名称)

在尝试使用其他文件系统方法移动文件或删除目录之前,可以使用此方法。

返回值:如果目录存在,则返回true。如果目录不存在,或者在directoryname参数中传递文件名,则返回false。

实例:

此示例在尝试将文件移动到目录之前确定该目录是否存在;否则,它将显示一个消息框,指示路径不存在:

string  ls_path="monthly targets"
 
If DirectoryExists ( ls_path ) Then
    FileMove ("2000\may.csv", ls_path+"\may.csv" )
    MessageBox ("File Mgr", "File moved to "&
     + ls_path + ".")
Else
    MessageBox ("File Mgr", "Directory " + ls_path+&
" does not exist" )
End If

5、FileDelete ( filename )删除文件
filename:文件名称
返回值: 如果成功,返回true;如果发生错误,返回false。如果文件名为空,则FileDelete返回空值。
案例:这些语句删除用户在打开的文件窗口中选择的文件:  
integer ret, value
string docname, named
value = GetFileOpenName("Select File," &
docname, named, "DOC", &
"Doc Files (*.DOC),*.DOC")
IF value = 1 THEN ret = MessageBox("Delete", &
"Delete file?", Question!, OKCancel!)
IF ret = 1 THEN FileDelete(docname)
 

 6、FileExists ( filename ) 判断文件是否存在

返回值: 如果文件存在,返回true;如果不存在,返回false。如果文件名为空,FileExists返回空值。

实例:此示例确定用户在Save file窗口中选择的文件是否存在,如果存在,则询问用户是否可以覆盖该文件:

string ls_docname, ls_named
integer li_ret
boolean lb_exist
GetFileSaveName("Select File," ls_docname, &
ls_named, "pbl", &
"Doc Files (*.DOC),*.DOC")lb_exist = FileExists(ls_docname)
IF lb_exist THEN li_ret = MessageBox("Save", &
"OK to write over" + ls_docname, &
Question!, YesNo!)

 




免责声明!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系本站邮箱yoyou2525@163.com删除。



 
粤ICP备18138465号  © 2018-2025 CODEPRJ.COM