Code:
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        resultsTextBoxBGW.Text = "Create System Information in Files-> .\System Information.txt"
        Dim currentDirectory As String = Directory.GetCurrentDirectory
        Dim Mem As MemoryStream = New MemoryStream()
        Dim writer As StreamWriter = New StreamWriter(Mem)

        writer.WriteLine("System Version Tool - Ultra StdEdition - 2010")
        writer.WriteLine("Thanks for MrVanx")
        writer.WriteLine("--------------------------")
        If check4Sys() Then
            writer.WriteLine("System Directory Information")
            writer.WriteLine("---------------------------")
            Dim path As String = (currentDirectory & "\SYS")
            Directory.SetCurrentDirectory(path)
            Dim info As New DirectoryInfo(Directory.GetCurrentDirectory)
            Dim info2 As DirectoryInfo
            For Each info2 In info.GetDirectories
                Directory.SetCurrentDirectory((path & "\" & info2.Name))
                writer.WriteLine((obtainPackageVersion() & "   |   " & info2.Name))
            Next
        Else
            writer.WriteLine("SYS directory not found")
        End If
        writer.Flush()
        Dim Wynik As String
        Mem.Seek(0, SeekOrigin.Begin)
        Dim RedMem As New StreamReader(Mem)
        Wynik = RedMem.ReadToEnd()
        writer.Close()
        writer.Dispose()
        Mem.Close()
        Mem.Dispose()
        RedMem.Close()
        RedMem.Dispose()
        MessageBox.Show(Wynik)
    End Sub
Welcome Total
I need help to insert folderbrowserdialog in the code above, instead of location, "SYS"
Excuse me for English language