[RESOLVED] [2008] Problems with For Statement

[youngbucks]

Can someone help me fix this please? Im trying to loop through 2 for statements so that the first one can get the directories and the second for statement gets all the files in each directory (also the child directories of the one its currently in) and then write the information.

Dim foundfolders As String() = IO.Directory.GetDirectories(workdir)
            For Each d_irectory As String In foundfolders
                Dim filefound As String() = IO.Directory.GetFiles(d_irectory)
                For Each newarray As String In filefound
                    Dim File_stream As New IO.FileStream(d_irectory & "\" & Path.GetFileName(newarray), FileMode.Open, FileAccess.Read, FileShare.Read, 8192I)
                    Raw_Crc_Integer = Crc_Class.GetCrc32(File_stream)
                    Writer.WriteLine("  <PATCHNODE file=" & ControlChars.Quote & Path.GetFileName(newarray) & ControlChars.Quote & ">" & vbCrLf & _
                                     "      <CRC>" & Raw_Crc_Integer.ToString & "</CRC>" & vbCrLf & _
                                     "      <SERVERLINK>" & (IO.Path.GetDirectoryName(newarray).Replace(Path.GetDirectoryName((newarray)), String.Empty)) & "\" & IO.Path.GetFileName(newarray) & "</SERVERLINK>" & vbCrLf & "  </PATCHNODE>")
                    looped += 1
                    Console.WriteLine("Writing Directories: (" & looped.ToString & "/" & amountoffoundfiles.ToString & ")")
                Next
            Next

I pretty much want to write a code that will search through every child directory in the main directory and write the information mainly the file location like this ("*This is the main directory*/*childdirectory*/filename.exe") or ("*This is the main directory*/*childdirectory*/nextchilddirectory/filename.exe").

[vbasicgirl]

Theres a few parameters to the GetFiles method and the third one is a searchoption to search subdirectorys.

For Each File As String In IO.Directory.GetFiles(workdir, "*.*", IO.SearchOption.AllDirectories)
            'DO SOMETHING WITH FILE
Next

Casey.

[youngbucks]

Thanks alot that was really helpfull, lol i cant believe it was that easy and i was making it complicated =/ . I need help with one more thing though. How would i get the current directory its in and write the filename that its currently checking? Path.getfilename gets me the filename but i need to get the current directory and not the full directory so it would be "/Directoryimcurrentlyin/*childdirectoryifavailable*/filename.exe"

[vbasicgirl]

Are you saying you need everything after the root directory ?

workdir\sub1\sub2\sub3\file or workdir\sub1\file

becomes

sub1\sub2\sub3\file or sub1\file

Casey.

[youngbucks]

Yes thats what i meant, sorry if i wasnt clear

[vbasicgirl]

Cant you just use substring and IndexOf. Find the first backslash with IndexOf and use substring to grab everything one position after that.

Casey.

[youngbucks]

Ive never used Indexof. only substring and very basic, the only thing i know at the moment is .replace but that cant help me in this situation.

[vbasicgirl]

IndexOf returns the first position of a character/s in a string.

Dim str As String = "Merry Xmas"

        MessageBox.Show(str.IndexOf("X").ToString)

That returns 6 because its zero based.

If you select any method and press F1, you will get all the help on that method.

Casey.

[youngbucks]

oh ok thanks, one last question lol, if i want to skip a file from being written how would i do that?

[vbasicgirl]

If IO.Path.GetFileName(File) <> "some filename you dont want to check" Then
'do something with the others
End if


Casey.

[youngbucks]

Thanks I used the replace method which did work after all lol.

[vbasicgirl]

Can i ask why you used Replace ?, can we see your code now ?

Casey.

[youngbucks]

Sure

Option Strict On
Option Explicit On
Option Infer Off
Imports ConsoleApplication1.Crc_Class
Imports System.IO
 
Module Module1
    Private password As String = "a18GB8eI0a"
    Dim PatchFile As FileStream = New FileStream("C:\Users\Home\Desktop\Patch.xml", FileMode.Create, FileAccess.Write)
    Dim Writer As New StreamWriter(PatchFile)
    Dim Crc_Class As New CRC32
    Dim Raw_Crc_Integer As Integer
    Dim looped As Integer = 0
    Dim folderlooped As Integer = 0
    Sub Main()
        Console.Title = ""
        Try
pw:
            Console.WriteLine("Please enter password: ")
            If Not Console.ReadLine = password Then
                Console.WriteLine("Incorrect password.")
                GoTo pw
            Else
                          Console.Clear()
            End If
input:
            Console.WriteLine("Input directory...")
            Dim workdir As String = Console.ReadLine
            If Not System.IO.Directory.Exists(workdir) Then
                Console.WriteLine("Incorrect input: Directory doesnt exist.")
                GoTo input
            End If
            Writer.Write("<?xml version=" & ControlChars.Quote & "1.0" & ControlChars.Quote & "?>" & vbCrLf & _
                        "<XML>" & vbCrLf & "<PATCHINFO>" & vbCrLf)
            '========================================================================
            Dim foundfolders As String() = IO.Directory.GetDirectories(workdir)
            Dim amountoffoundfolders As Integer = IO.Directory.GetDirectories(workdir).Count
            For Each File As String In IO.Directory.GetFiles(workdir, "*", IO.SearchOption.AllDirectories)
                Dim fileinfo As New IO.FileInfo(File)
                Dim File_stream As New IO.FileStream(File, FileMode.Open, FileAccess.Read, FileShare.Read, 8192I)
                Raw_Crc_Integer = Crc_Class.GetCrc32(File_stream)
                Writer.WriteLine("  <PATCHNODE file=" & ControlChars.Quote & Path.GetFileName(File) & ControlChars.Quote & ">" & vbCrLf & _
                                 "      <CRC>" & Raw_Crc_Integer.ToString & "</CRC>" & vbCrLf & _
                                 "      <SERVERLINK>" & (IO.Path.GetDirectoryName(File).Replace(workdir, String.Empty)) & "\" & IO.Path.GetFileName(File) & "</SERVERLINK>" & vbCrLf & "    </PATCHNODE>")
 
                folderlooped += 1
                Console.WriteLine("Writing File: (" & folderlooped.ToString & ")")
            Next
            '========================================================================
            Writer.WriteLine("</PATCHINFO>" & vbCrLf & "</XML>")
            Writer.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message & vbCrLf & "Press any button to continue...")
            Console.ReadLine()
            GoTo input
        End Try
    End Sub
 
End Module

This is what i used.

(IO.Path.GetDirectoryName(File).Replace(workdir, String.Empty)) & "\" & IO.Path.GetFileName(File)

[vbasicgirl]

Right, i see what you have done. This is what i meant

File.Substring(File.IndexOf("\") + 1)


Casey.

[youngbucks]

Ill keep that in mind next time, The reason i used .replace was because the root directory never changes so i just remove the root directory from the string and replace it with string.empty . I tend to figure this stuff out when im not tired or hungry lol. Thanks for your help it was greatly appreciated