Breadcrumbs

[muttley1968]

thank you

[MrAksel]

This is the type of app thats useful for me lol Thanks for credits

[muttley1968]

ive redone it now to look beter and nice just trying to work on a preview now but cant think how to put the pic into a picbox when it is in the rar file i have so far tried
thist but cant think how to use it to make picbox image be the terain pic from inside the rar file any ideas please

Code: Select all

    Dim s As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
    Private Sub unzip(ByVal filename As String, ByVal targetdir As String, ByVal overwrite As Boolean, Optional ByVal password As String = "")
        Dim inputStrm As New ZipInputStream(File.OpenRead(s & "\" & TextBox1.Text))
        inputStrm.Password = password
        Dim nextEntry As ZipEntry = inputStrm.GetNextEntry()
        While Not nextEntry Is Nothing
            If Not nextEntry.Name.LastIndexOf("/") = nextEntry.Name.Length - 1 Then
                If nextEntry.Name.IndexOf("/") > 0 Then
                    If Not Directory.Exists(targetdir & "\" & nextEntry.Name.Replace("/", "\").Substring(0, nextEntry.Name.Replace("/", "\").LastIndexOf("\"))) Then
                        Directory.CreateDirectory(targetdir & "\" & nextEntry.Name.Replace("/", "\").Substring(0, nextEntry.Name.Replace("/", "\").LastIndexOf("\")))
                    End If
                End If
                Dim tmpStrm As FileStream
                Dim tmpBuffer(2048) As Byte
                Dim tmpLength As Integer = -1

                If overwrite = True Then
                    tmpStrm = New FileStream(Path.Combine(targetdir, nextEntry.Name), FileMode.Create)
                Else
                    tmpStrm = New FileStream(Path.Combine(targetdir, nextEntry.Name), FileMode.CreateNew)
                End If

                While True
                    tmpLength = inputStrm.Read(tmpBuffer, 0, tmpBuffer.Length)
                    If tmpLength > 0 Then
                        tmpStrm.Write(tmpBuffer, 0, tmpLength)
                    Else
                        Exit While
                    End If
                End While

                tmpStrm.Flush()
                tmpStrm.Close()

                nextEntry = inputStrm.GetNextEntry()
            Else
                Directory.CreateDirectory(targetdir & "\" & nextEntry.Name.Replace("/", "\"))
                nextEntry = inputStrm.GetNextEntry()
            End If
        End While
    End Sub
    Private Sub BW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BW.DoWork
        unzip(TextBox1.Text, s, "1")
    End Sub

[kolega28]

I haven't really done rar/zip programming yet and I'm not really planning too so I won't be any help, you can put it on the help needed section which is somewhere lol, then it will get more replies probably

[muttley1968]

Here is the semi new version people does a bit more now but still working on the hole preview thing tell me do you all think i should make it so you can drag and drop texturepacks onto it and it updates them and if you have any ideas people please share or do you think i should scrap it or leave it as it http://www.mediafire.com/?1yfpjl8x730jxdw

[muttley1968]

final version woop http://www.mediafire.com/?3tdkq7r7f5pd63i