以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]指定路径文件计数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117924)
--  作者：天一生水
--  发布时间：2018/4/20 21:38:00
--  [求助]指定路径文件计数
1、窗口设置计时器为false；
2、按钮代码：
...
e.form.TimeEnabled = true   \'启用计时器
添加文件代码
e.form.TimeEnabled = false  \'停止计时器 
...

3、TimerTick事件
e.form.TimerInterval = 200    \'间隔
\'获取指定路径原文件数
Dim fileList() As String = System.IO.Directory.GetFiles("d:\\" , "*.*")
Dim i As Integer = fileList.Length         \'文件数
\'Output.Show(i)
e.Form.Controls("Label1").text = i       
......
\'请问老师怎样显示不断增加的文件数

[此贴子已经被作者于2018/4/20 21:51:54编辑过]
--  作者：有点蓝
--  发布时间：2018/4/20 22:20:00
--  
2、按钮代码：
...
e.form.TimeEnabled = true   \'启用计时器
添加文件代码

...

3、TimerTick事件
e.form.TimerInterval = 200    \'间隔
e.Form.Controls("Label1").text = FileSys.GetFiles("D:\\").Count    
e.form.TimeEnabled = false  \'停止计时器 
--  作者：天一生水
--  发布时间：2018/4/24 16:13:00
--  

我想在窗口的标签显示文件夹不断变化的文件数，如图的效果：


图片点击可在新窗口打开查看此主题相关图片如下：gif.gif
图片点击可在新窗口打开查看

 

但是这句代码无法放进按钮，开启计时器。

e.form.TimeEnabled = true   \'启用计时器
--  作者：有点甜
--  发布时间：2018/4/24 16:17:00
--  

拼写错误

 

http://www.foxtable.com/webhelp/scr/1322.htm

 
--  作者：天一生水
--  发布时间：2018/4/25 15:51:00
--  
改过来了，但是没出现三楼想要的结果。
而是最后一次性的显示了总数。
怎样逐个显示新增的文件？
 
1、按钮代码：
...
e.form.TimerEnabled = true   \'启用计时器
添加文件代码
e.form.TimerEnabled = false  \'停止计时器 

...
-----------------------------
2、TimerTick事件
e.form.TimerInterval = 200    \'间隔
e.Form.Controls("Label1").text = FileSys.GetFiles("D:\\").Count    
 
--  作者：有点甜
--  发布时间：2018/4/25 16:25:00
--  

显示代码写在你的代码里面（生成图片的代码），加上doevents

 

http://www.foxtable.com/webhelp/scr/1476.htm