锐客网

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

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

IT技术文件


Dim ff() As String '定义一个字符串数组用来保存找到的文件名称
Dim fn As Long '保存找到的文件数目
fn=TreeSearch("C:%%dos","*.exe" ， ff())
Print "找到文件数目为"fn
For I=1 To fn
Print ff(I)
Next
End Sub
2.插入一模块Modulel.bas，写如下代码：
Option Explicit
Public Function TreeSearch(ByVal sPath As String,ByVal sFileSpec As String,sFiles() As String) As Long
Static 1Files As Long '文件数目
Dim sDir As String
Dim sSubDirs() As String '存放子目录名称
Dim 1Index As Long
If Right(sPath,1)"%%" Then sPath=sPath"%%"
sDir=Dir(sPathsFileSpec)
'获得当前目录下文件名和数目
Do While Len(sDir)
1Files=1Files+1
ReDim Preserve sFiles(1 To 1Files)
sFiles(1Files)=sPathsDir
sDir=Dir
Loop
'获得当前目录下的子目录名称
1Index=0
sDir=Dir(sPath"*.*",16)
Do While Len(sDir)
If Left(sDir,1)"." Then 'skip.and..
'找出子目录名
If GetAttr(sPathsDir)And vbDirectory Then
1Index=lIndex+1
'保存子目录名
Redim Preserve sSubDirs(1 To 1Index)
sSubDirs(1Index)=sPathsDir"%%"
End If
End If
sDir=dir
Loop
For 1Index=1 To 1Index
'查找每一个子目录下文件，这里利用了递归
Call TreeSearch(sSubDirs(1Index),sFileSpec,sFiles())
Next 1Index
TreeSearch=1Files
End Function
3.保存文件 ， 按F5运行，单击命令按钮即可 。
vb.net 文件夹操作vb.net使用控件FolderBrowserDialog1,在程序中:
'设置对话框中在树视图控件上显示vb.net监视控文件夹的说明文本
Me.FolderBrowserDialog1.Description
=
"请选择输出报表所在路径:"
'设置从其开始浏览vb.net监视控文件夹的根文件夹
Me.FolderBrowserDialog1.SelectedPath
=
"c:\"
If
Me.FolderBrowserDialog1.ShowDialog()
=
DialogResult.OK
Then
'取得全路径（包含文件名）
reportPath1
=
System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'设定text显示文件名
txtReport1.Text
=
reportPath1
setReportList()
End
If
在setReportList()中针对vb.net监视控文件夹你所需要的文件进行操作等
VB中如何实时监控指定文件夹下文件个数，（实时更新文件个数的变化）并转换成文本值在界面中显示出来？'首先先引用MicrosoftScriptingRunTime
'放置3个timer控件，依次命名为timer1，timer2 ， timer_time
'将下面代码放到代码框中 。
Dim size_a As Long, size_b As Long, time_5 As Integer
Dim fso1 As New FileSystemObject
Dim folder1 As Folder
Private Sub Form_Load()
Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据自己的修改
Print folder1.Size, time_5
Timer1.Interval = 1
Timer2.Interval = 2
Timer_time.Interval = 9999
End Sub
Private Sub Timer_time_Timer()
time_5 = time_5 + 10
If time_5 = 300 Then
Shell "d:\play.exe" '文件的位置，根据自己的修改
Shell "d:\sendmail.exe" '文件的位置，根据自己的修改
End If
End Sub
Private Sub Timer1_Timer()
Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据自己的修改
size_a = folder1.Size
If size_bsize_a Then time_5 = 0
End Sub
Private Sub Timer2_Timer()
Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据自己的修改
size_b = folder1.Size
End Sub
【关于vb.net监视控文件夹的信息】关于vb.net监视控文件夹和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

推荐阅读


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

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