DbFileSpec.Move 方法 (__Usual, __Usual, __Usual) |
命名空间: XSharp.VO.SDK
1// 将CUSTOMER.DBF文件移动到C:\TEST目录: 2SetDefault("C:\CAVO25\SAMPLES\GSTUTOR") 3oDB := DBFileSpec{ } 4oDB:FileName := "customer" 5 6IF oDB:Find() 7 oDB:Move("C:\TEST\") 8ENDIF 9 10// 使用FileSpec对象进行移动 11// 将CUSTOMER.DBF文件移动到C:\TEST目录: 12SetDefault("C:\CAVO25\SAMPLES\GSTUTOR") 13oFS := FileSpec{"C:\TEST\"} 14oDB := DBFileSpec{ } 15oDB:FileName := "customer" 16 17IF oDB:Find() 18 oDB:Move(oFS) 19ENDIF 20 21// 将CUSTOMER.DBF文件移动到C:\TEST目录并重命名: 22SetDefault("C:\CAVO25\SAMPLES\GSTUTOR") 23oDB := DBFileSpec{ } 24oDB:FileName := "customer" 25IF oDB:Find() 26 oDB:Move("C:\TEST\NewFile") 27ENDIF