Q5/ws_objects/Ew_atupdexe.pbl.src/w_filemove.srw

$PBExportHeader$w_filemove.srw
forward
global type w_filemove from window
end type
type ddlb_dir from dropdownlistbox within w_filemove
end type
end forward

global type w_filemove from window
integer width = 3365
integer height = 1408
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
ddlb_dir ddlb_dir
end type
global w_filemove w_filemove

on w_filemove.create
this.ddlb_dir=create ddlb_dir
this.Control[]={this.ddlb_dir}
end on

on w_filemove.destroy
destroy(this.ddlb_dir)
end on

event open;// messagebox("",string(UnZipTo("C:\Documents and Settings\Administrator\桌面\qqq.tmp","C:\Documents and Settings\Administrator\桌面\xx",false,"")))


int i
string  apppathx
apppathx=sys_cur_path  + "updatexetmp\"
ddlb_dir.DirList(apppathx  + "wfsoft.com\", 0)
for i=1 to  ddlb_dir.totalitems()
	Filemove(apppathx  + "wfsoft.com\" + ddlb_dir.text(i),apppathx + ddlb_dir.text(i))
next
ddlb_dir.DirList(sys_cur_path,0)
close(this)


end event

type ddlb_dir from dropdownlistbox within w_filemove
integer x = 197
integer y = 200
integer width = 549
integer height = 476
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type