Dim dlg As New OpenFileDialog
dlg.Filter = "所有文件|*.*"
If dlg.ShowDialog =DialogResult.OK Then
Dim fl As String = dlg.FileName '获取所选择的文件名
Dim fl1 As String =FileSys.GetParentPath(fl) '根据文件名返回目录
For Each File As String In FileSys.GetFiles(fl1) '遍历目录下的所有文件
Output.Show(File)
Dim s As String = FileSys.ReadAllText(File, Encoding.Default) '读取文件内容
output.Show(s)
Next
End If
上述代码有没有更加简洁的办法 就是直接选择文件夹目录 即可 而不是先通过选择文件 然后返回目录 再去读该目录下的所有文件的内容