Sub 查询_用列表框列举目录下的文件及子目录()
Dim path As String = Form账务统计_对公采购存档_编辑.LinkLabel1.Text
If Directory.Exists(path) Then
Dim Files() As String = Directory.GetFiles(path)
Dim Folders() As String = Directory.GetDirectories(path)
'获取path下文件数量
Dim FilesList() As String = System.IO.Directory.GetFiles(path, "*.*")
Dim iFiles As Integer = FilesList.Length
'获取path下目录数量
Dim FoldersList() As String = System.IO.Directory.GetDirectories(path)
Dim iFolders As Integer = FoldersList.Length
'列举path下的文件名
If iFiles > 0 Then
For i As Integer = 0 To Files.Length - 1
Form账务统计_对公采购存档_编辑.ListBox1.Items.Add((Files(i)))
Next
Else
Exit Sub