保定专业做网站的公司/seo外链工具源码

今天做了一个监控的程式,用来监控指定文件夹下文件的数量,当文件数量达到一定数量是发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

End Function