<P>Dim sql, workarea(6) As String<BR>ProgressBar1.Visible = True<BR>ProgressBar1.Max = UBound(workarea)<BR>ProgressBar1.Value = ProgressBar1.Min<BR>&nbsp;&nbsp; For connter = LBound(workarea) To UBound(workarea)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; workarea(connter) = "initial value" &amp; connter<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ProgressBar1.Value = connter<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; temp_char = App.Path &amp; "\db_kcgl.mdb"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '该段代码实现的是利用二进制复制文件的方法复制数据库文件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open temp_char For Binary As #1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '打开源文件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open text1.Text For Binary As #2&nbsp;&nbsp;&nbsp;&nbsp; '打开目标文件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do While Not EOF(1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Get #1, , char<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Put #2, , char&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '将读出的每一个字节写入到目标文件中<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Close<BR>&nbsp;Next connter<BR>&nbsp;ProgressBar1.Value = ProgressBar1.Min<BR>&nbsp;MsgBox "数据库备份成功!!", 64, "提示信息"<BR>&nbsp;Cmd_backup.Enabled = True<BR>&nbsp;End If</P>
<P>&nbsp;</P>
<P>我想问的是以上：workarea(connter) = "initial value" &amp; connter 在这里有什麽意义？</P>
<P>第2是：Open temp_char For Binary As #1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '打开源文件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open text1.Text For Binary As #2&nbsp;&nbsp;&nbsp;&nbsp; '打开目标文件<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Do While Not EOF(1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Get #1, , char<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Put #2, , char&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '将读出的每一个字节写入到目标文件中<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Close<BR>是不是在第一次for循环之后就备份完数据库了？这里备份了7次？循环了7次！</P>
<P>我是初学者，请多多指教<BR></P>