[WM]Develop Window Mobile - System Rebuilder
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
Re: [WM]Develop Window Mobile - System Rebuilder