锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net监视控文件夹的信息

IT技术文件

求关于VB监视一个文件夹的代码楼主vb.net监视控文件夹你好,我测试了一下OKvb.net监视控文件夹的,想了挺长时间vb.net监视控文件夹的
代码如下
控件.filelistbox
Dim
sua
As
Integer
'sua是存放上次vb.net监视控文件夹的文件数的,所以必须为通用,静态vb.net监视控文件夹，不然会丢失
Private
Sub
Form_Load()
File1.FileName
=
App.Path
"\"
"新建文件夹"
'这里写你的那个什么数据库的地址
For
i
=
To
File1.ListCount
-
1
'循环我就不说了吧
If
Right(File1.List(i),
4)
=
".txt"
Then
sua
=
sua
+
1
'在加载的时候
先算出文件夹里德文件数,这是sua的第一次赋值（即文件夹文件数）
Next
i
End
Sub
Private
Sub
监视_Click()
File1.Refresh
'每次按下去
都要先刷新一次,因为这样的话就可以更新文件数了
For
i
=
To
File1.ListCount
-
1
If
Right(File1.List(i),
4)
=
".txt"
Then
s
=
s
+
1
'这里是算出
后缀是.txt的文件数
Next
i
If
s
sua
Then
MsgBox
"文件更新了"
'判断
文件数是否
大于上一次的，,第一次按下按钮的时候
上一次
就是加载时候的文件数啦~
sua
=
s
'在判断后
将s(这次的文件数)赋值给sua
那么在下次的上一句里sua
值就是
你这次的
值啦（储存s）
End
Sub
如果有什么问题的话
hi我好了
vb.net 用FileSystemWatcher监视文件变化，文件变化时如何获得所变化的文件名 。Private WithEvents fw As IO.FileSystemWatcher
Private Shared Sub OnChanged(source As Object, e As IO.FileSystemEventArgs) Handles fw.Changed '更改指定路径中的目录和文件时引发该事件
MsgBox(e.Name)
End Sub
vb.net监控路径上的任一文件夹，当重命名时触发事件 。Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘监控文件夹和文件 。
FileSystemWatcher1.IncludeSubdirectories = True’监控子文件夹
End Sub
Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
MsgBox(e.FullPathvbCrLfe.Name)
End Sub'捕获新路径
你监控test不就好了，若要排除其他文件夹，IncludeSubdirectories 设为假，用多个FileSystemWatcher就行了，用数组或其他方式创建 。
我想用vb 监控 某个文件夹下的文件是否有变化，如果出现了变化，进行报警并显示内容???若只是监视文件夹下的 文件数目、名称是否有改变的话 很容易 。若要检测文件夹下文件内容是否被改动，就需要检测所有文件的修改日期了 。先来个检测文件夹下名称、数量的吧 。
在VB中要实现查找文件功能，我们可以利用VB的DIR函数进行递归来实现 。每次使用DIR函数后，比较是否有要查找的文件，再检查是否有子目录，若有，利用递归继续查找 ， 这样可对整个盘进行查找 。
下面是一个例子，查找DOS目录下的所有EXE文件，统计EXE文件的数目并列出文件名 。本程序会查找当前路径下的所有文件和子目录，与WIN95的“包含子文件夹”的查找功能类似 。
程序与注释如下：
1.在窗体中加一命令按钮Command1,Caption=查找示例，双击此按钮，写如下代码：
Private Sub Command1_Click()

推荐阅读


上一篇：sqlserver2008插入单引号，sql server单引号

下一篇：游戏开发者联盟最新版本，游戏开发者二三事