111.bak

用于银行管理和贷款查询。

LPARAMETERS cDatePath,cBakPath 
close all
if empty(cDatePath)=.t. or empty(cbakpath)
   messagebox("备份数据库名和路径不许为空！"“，16，”“系统提示”)
   return .f.
else
    if directory(cBakpath)=.f.
      MD &cBakPath.
endif
this.list1.clear
this.list2.clear
if right(cDatePath,1)<>"/"
   dirpath=cDatePath+"\*.*"
else
  dirpath=cDatePath+"*.*"
endif
Ypath=cDatePath
dele file &bakname.

set safe off
mywidth=thisform.width
thisform.width=258
list files like &dirpath.to PathList.tmp
clear
thisform.width=mywidth
line1=""
handle=fopen("pathlist.tmp",2)
if handle<0
    messagebox("创建文件列表失败！",16,"系统提示")
else
  do while .t.
    if feof(handle)
      exit
    endif
    lin=alltrim(fgets(handle))
    bt=at("",lin)
    First=left(lin,bt)
    secord=alltrim(substr(lin,bt,len(lin)))
    if first="共有" or secord="共有"
        exit
    endif
     if len(alltrim(first))<>0
       this.list1.additem(first)
     endif
     if len(alltrim(secord))<>0
        this.list1.additem(secord)
      endif
   enddo
endif
fclose(handle)
for m=1 to this.list1.listcount
   if atc(".",this.list1.listitem(m))<>0
     addstr=this.list1.listitem(m)