Verify if Two Files are in Same Directory, If So Process, If Not Go to Next Directory

[asmocon]

Hello everyone. This is essentially my first time trying to make a program, of any sorts, so there is a chance I am doing things the wrong way or over complicating things. Sorry if either of those happens.

Below is a small snippet of what I am trying to resolve. There is about 2,000 directories I need to go through and find two different files, "perform_log.txt" and "ship.txt." Then, I am pulling information from each of those files and exporting it to ares of an Excel worksheet. All of that works perfectly.

The only extra thing I would like it to do, is to check if each directory has BOTH files. Every directory will always have a ship.txt, but not all will have perform_log.txt. If perform_log.txt is not there, I would like my code to skip that directory and avoid writing anything...just move on to the next set.

Short Story: I would like to find a way to say, "If there is no perform_log.txt in directory with ship.txt ignore directory go to next directory."

Dim Files As String() = IO.Directory.GetFiles(browsebox.Text, "perform_log.txt", IO.SearchOption.AllDirectories)    
 
Dim Ships As String() = IO.Directory.GetFiles(browsebox.Text, "ship.txt", IO.SearchOption.AllDirectories)
 
 
 
For Each Ship In Ships
    line9 = (GetLine(Ship, 9))
 
    ssline9 = line9.Substring(27, 9)
    XLWs.Cells(i, currentCol) = ssline9
 
    i += 1
 
Next
 
For Each File In Files
 
                line21 = (GetLine(File, 21))
                line25 = (GetLine(File, 25))
                line26 = (GetLine(File, 26))
                line52 = (GetLine(File, 52))
                line56 = (GetLine(File, 56))
                line57 = (GetLine(File, 57))

[Mihail]

"Every directory will always have a ship.txt, but not all will have perform_log.txt."

Based on this affirmation, line 3 in your code is not necessary.
Now, For Each File in Files (by the way, why you don't use a suggestive name like "Performs" ?) the path for the "ship.txt" file must be the directory path for Perform file & "\ship.txt"

Hope this is a help for you

[IronRazer]

Hi,
You can search threw all the sub folders in a given directory and check if they contain both files like this. Just set the (SearchDir) string to the directory you want to search.

Imports System.IO
 
Public Class Form1
    Dim SearchDir As String = "C:\TestFolder"
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim di As New DirectoryInfo(SearchDir)
 
        'Loop threw all directories in the (SearchDir) directory and find every folder that has both files in it.
        For Each dir As DirectoryInfo In di.GetDirectories("*", IO.SearchOption.AllDirectories)
            Dim file1 As String = Path.Combine(dir.FullName, "ship.txt")
            Dim file2 As String = Path.Combine(dir.FullName, "perform_log.txt")
            If File.Exists(file1) And File.Exists(file2) Then
 
                'Here you can open and read the info from (file1 and file2) that you need to get from them
                'and export it to your Excel worksheet. Make sure you close the files when done reading them.
 
                ListBox1.Items.Add(dir.FullName) 'Show the directories in a listbox if you want. Delete this line if not.
            End If
        Next
    End Sub
End Class
 

[asmocon]

Sorry, I ended up solving this about two days ago using a simple ".count" - Found the directories, then searched each directory to verify they had the required files, then continued on. I appreciate all of the help, though. Hopefully I can clean my whole thing up and make it a bit more efficient and IronRazers suggestions of the PathCombine might be a route for me to look at.

Again, thank you both for the suggestions.

        Dim dirs = My.Computer.FileSystem.GetDirectories(browsebox.Text, FileIO.SearchOption.SearchAllSubDirectories) 
 
        For Each d In dirs
            If My.Computer.FileSystem.GetFiles(d, FileIO.SearchOption.SearchTopLevelOnly, {"perform_log.txt", "ship.txt", "*.seg"}).Count = 3 Then
 
'do required tests