使用PB调用API自动更新（非FTP模式）（四、统计复制文件数量函数F_CONNECT_COPYCOUNT）

使用PB调用API自动更新（非FTP模式）（四、统计复制文件数量函数F_CONNECT_COPYCOUNT）(1)

四、统计复制文件数量函数F_CONNECT_COPYCOUNT
需要控件：LISTBOX(3个)
返回值：需要下载的文件个数。
global type f_connect_copycount from function_object
end type

forward prototypes
global function integer f_connect_copycount (string as_path, listbox lb_filecopy1, listbox lb_filecopy2, listbox lb_filecopy3)
end prototypes

global function integer f_connect_copycount (string as_path, listbox lb_filecopy1, listbox lb_filecopy2, listbox lb_filecopy3);

string ls_directorya1,ls_directorya2
string ls_filename,ls_file

ls_directorya1 = as_path
ls_directorya2 = gs_application_path

string ls_directoryb1,ls_directoryb2
string ls_directoryc1,ls_directoryc2

string ls_filename1,ls_filename2

long ll_filecounta1,ll_filecounta2
long ll_filecountb1,ll_filecountb2
long ll_filecountc1,ll_filecountc2

long ll_cnt1
long ll_cnt2
long ll_cnt3

s_filetime sf_createtime1,sf_createtime2
s_filetime sf_Accesstime1,sf_accesstime2
s_filetime sf_writetime1,sf_writetime2

s_WIN32_FIND_DATA ss_file1,ss_file2
long ll_filehandle1,ll_filehandle2

long ll_k

ls_file = ls_directorya1 + '\*.*'
If Not lb_filecopy1.DirList(ls_file, 0+1+2+16+32) Then
 Return -1
End If

ll_filecounta1 = lb_filecopy1.TotalItems()
ll_k = 0
For ll_cnt1 = 1 To ll_filecounta1
 ls_File = lb_filecopy1.Text(ll_cnt1)
 
 if left(ls_file,1) = '[' then
  ls_filename = right(ls_file,len(ls_file) - 1)
  ls_filename = left(ls_filename,len(ls_filename) - 1)
  
  if ls_filename = '..' then continue
  
  ls_directoryb1 = ls_directorya1 + '\' + ls_filename
  ls_directoryb2 = ls_directorya2 + '\' + ls_filename
  if directoryexists(ls_directoryb2) = false then
   ll_k++
  end if