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