今天做了一个监控的程式,用来监控指定文件夹下文件的数量,当文件数量达到一定数量是发Mail出来提醒!
其中最核心的一段是如何获得指定文件夹下文件的数量有多少,通过查找资料发现有如下实现,测试可以正常使用,Share如下:
Private Function GetAllFilesOnTheDirectory(ByVal folderPath As String, ByVal includeSubdirectories As Boolean) As FileInfo()
Dim FileLists As New List(Of FileInfo)
Dim dirInfo As New DirectoryInfo(folderPath)
FileLists.AddRange(dirInfo.GetFiles)
If includeSubdirectories Then
Dim DirList() As DirectoryInfo = dirInfo.GetDirectories
For i As Integer = 0 To DirList.Length - 1
FileLists.AddRange(GetAllFilesOnTheDirectory(DirList(i).FullName, includeSubdirectories))
Next
End If
Return FileLists.ToArray
Dim FileLists As New List(Of FileInfo)
Dim dirInfo As New DirectoryInfo(folderPath)
FileLists.AddRange(dirInfo.GetFiles)
If includeSubdirectories Then
Dim DirList() As DirectoryInfo = dirInfo.GetDirectories
For i As Integer = 0 To DirList.Length - 1
FileLists.AddRange(GetAllFilesOnTheDirectory(DirList(i).FullName, includeSubdirectories))
Next
End If
Return FileLists.ToArray
End Function
转载于:https://blog.51cto.com/orakobe/911579