显示文件夹中的所有excel文件

Question

我想查看文件夹列表框中的所有Excel文件，请注意Excel包含多个版本。 我使用了以下代码，但没有用

   Dim di As New IO.DirectoryInfo("D:\EXCEL")
        Dim aryFi As IO.FileInfo() = di.GetFiles("Excel Worksheets|*.xls; *.xlsx; *.xlsm")
        Dim fi As IO.FileInfo
        For Each fi In aryFi
            ListBox1.Items.Add((fi))
        Next

Answer 1

在此示例中稍作修改：https://stackoverflow.com/a/3527717/1920035

if (auth.getCurrentUser() != null) {
            startActivity(new Intent(Login.this, Home.class));
            finish();

这是什么？

1. 从目录信息中获取所有文件
2. 声明要检查的文件扩展名集合
3. 仅返回文件扩展名集合中扩展名存在的文件

重要说明-移动excelFileExtensions可能是值得的，因此它是更高范围的私有只读变量。数量不多，但是如果您经常运行它，那将会有所作为。