PB文件操作函数

您所在的位置：网站首页 › filecopy用法 › PB文件操作函数

PB文件操作函数

#PB文件操作函数| 来源: 网络整理| 查看: 265

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!)

【本文地址】

PB文件操作函数

PB文件操作函数

今日新闻

推荐新闻