DbFileSpec.Copy 方法 (__Usual, __Usual, __Usual) |
命名空间: VO
1// 将 CUSTOMER.DBF 文件复制到 C:\TEST 目录: 2SetDefault( "C:\CAVOxx\SAMPLES\GSTUTOR" ) 3oDB := DBFileSpec{} 4oDB:FileName := "CUSTOMER" 5 6IF oDB:Find() 7 oDB:Copy( "C:\TEST\" ) 8ENDIF 9 10// 使用FileSpec对象复制: 11// 将CUSTOMER.DBF文件复制到C:\TEST\COPY\DBFS目录: 12// 将TEST.DBF文件复制到C:\TEST目录: 13SetDefault( "C:\CAVOxx\SAMPLES\GSTUTOR" ) 14oFS := FileSpec{ "C:\TEST\" } 15oDB := DBFileSpec{} 16oDB:FileName := "CUSTOMER" 17 18IF oDB:Find() 19 oDB:Copy( oFS ) 20ENDIF