打开文件的问题

[sandberg0411]

有这样一个文件，可以确定文件名的前半部分和扩展名，另一部分是未知的，例如：DD20080108.TXT，已知部分是DD和.TXT，中间的数字部分未知，要想用vb.net打开这样一个文件用什么办法，谢谢

[microsoftq]

能确定文件的路径么

[害怕飞的鸟]

如果能确定是在哪个文件夹下的话就好说，否则，还要全盘搜索就麻烦了。

[sandberg0411]

知道文件的路径，在C盘下

[Fibona]

try
{

DirectoryInfo dir = new System.IO.DirectoryInfo(@"C:\");

            List<FileInfo> list = new List<FileInfo>();//要得到的文件列表
            foreach(System.IO.FileInfo f in dir.GetFiles)
            {
                if (f.Extension.ToLower() == "txt")
                {
                    if (f.FullName.Replace("C:\\", "").Substring(0, 2).ToLower() == "dd")
                    {

                        list.Add(f);
                    }

                }

            }

}
catch(Exception e)
{

}

[Fibona]

//上面没有考虑递归子目录,递归子目录,只要稍改一下就行

[microsoftq]

没有考虑子目录，可以用递归查找到符合条件的文件

[vbspirit]

        Dim filelist As New List(Of String)
        Dim a As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchAllSubDirectories)
        For Each b As String In a
            If My.Computer.FileSystem.GetFileInfo(b).Extension.ToLower = "txt" Then
                If My.Computer.FileSystem.GetFileInfo(b).Name.Substring(0, 2).ToLower = "dd" Then
                    filelist.Add(b)
                End If
            End If
        Next

这里有一个问题。就是文件夹的访问权限，如果没有访问权限会在第二行出错。
这个是有子文件夹检索的，如果不需要就把FileIO.SearchOption.SearchAllSubDirectories这个参数删掉