.net 条件、文件存在、示例代码、检查文件目录

大家好，我只是一个.net编程的初学者，我真的需要一些关于这个问题的帮助，我的代码的逻辑应该是查看数组中的每个目录。。然后将验证是否每个文件夹中都有文件，这就是为什么我使用“system.io.file.exist（）”，很抱歉代码混乱，请帮助我

        Dim schar As String
        Dim number As Integer
        Dim Dirs(4) As String
        Dirs(0) = "E:\_net_programs\test\sample1"
        Dirs(1) = "E:\_net_programs\test\sample2"
        Dirs(2) = "E:\_net_programs\test\sample3"
        Dirs(3) = "E:\_net_programs\test\sample4"
        Dirs(4) = "E:\_net_programs\test\sample5"
        For Each folder As String In Dirs

            Dim getDir As New DirectoryInfo(folder)
            Dim fiArr As FileInfo() = getDir.GetFiles()
            Dim fri As FileInfo
            For Each fri In fiArr

                If Not System.IO.File.Exists(folder + "\" + fri.Name) Then
                    MessageBox.Show("file does not exist. : " + folder + "\" + fri.Name)
                    Return
                Else
                    MessageBox.Show(folder + "\" + fri.Name)
                    Return
                End If

                Label1.Text = "textfile name :" & fri.Name
                Dim file As New System.IO.StreamReader(folder + "\" + fri.Name)
                schar = Trim(file.ReadLine())
                MessageBox.Show(schar)

                Do While file.Peek <> -1
                    schar = Trim(file.ReadLine())

Dim schar作为字符串
整数形式的数字
Dim Dirs（4）作为字符串
Dirs（0）=“E:\\网络\程序\测试\样本1”
目录（1）=“E:\\网络\程序\测试\样本2”
目录（2）=“E:\\网络\程序\测试\样本3”
目录（3）=“E:\\网络\程序\测试\样本4”
目录（4）=“E:\\网络\程序\测试\样本5”
作为目录中的字符串用于每个文件夹
Dim getDir作为新目录信息（文件夹）
Dim fiArr As FileInfo（）=getDir.GetFiles（）
Dim fri作为文件信息
fiArr中的每周五
如果不存在System.IO.File.（文件夹+“\”+fri.Name），则
MessageBox.Show（“文件不存在：”+文件夹+“\”+fri.Name）
返回
其他的
MessageBox.Show（文件夹+“\”+fri.Name）
返回
如果结束
Label1.Text=“textfile name:”&fri.name
作为新System.IO.StreamReader的Dim文件（文件夹+“\”+fri.Name）
schar=Trim（file.ReadLine（））
MessageBox.Show（schar）
Do While file.Peek-1
schar=Trim（file.ReadLine（））

要检查目录是否有文件，您只需要以下内容：

If getDir.GetFiles().Length = 0 Then
    MessageBox.Show(string.Format("Folder {0} doesn't have any file.", folder))
End If

关于你的样品，你有一个问题

---

首先，使用GetFiles（）方法获取指定文件夹中存在的所有文件。既然刚刚检查过，为什么需要再次检查它们是否存在？

如果您只对文本（*.txt）文件感兴趣，那么应该执行以下操作：

    Dim Dirs(4) As String
    Dirs(0) = "E:\_net_programs\test\sample1"
    Dirs(1) = "E:\_net_programs\test\sample2"
    Dirs(2) = "E:\_net_programs\test\sample3"
    Dirs(3) = "E:\_net_programs\test\sample4"
    Dirs(4) = "E:\_net_programs\test\sample5"
    For Each folder As String In Dirs
        Dim files = IO.Directory.GetFiles(folder, "*.txt")
        If files.Count = 0 Then
            MessageBox.Show("No txt files in folder : " + folder)
            Return
        Else
            MessageBox.Show(Join(files, vbCrLf))
            Return
        End If

    Next

---

请不要介意“返回”代码，您可以编辑您的问题。它应该包括你实际看到的，最好用一个例子。我知道你正在搜索非空目录？你在寻找什么样的文件？？您正在枚举目录及其内的所有文件。然后检查这些文件是否存在，这些文件将始终存在，因为您得到了该目录的文件列表。ow sorry=（我要做的是..sorry=（…我要做的是如果文件夹没有文件（文本文件）将弹出一条消息，指出当前文件夹没有文件乐于帮助。如果这对您有用，请将其标记为“回答：）