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