none
Me ajude! Compactei uma pasta muito importante com varias Foto e agora nao esta dando pra descompactar VB.NET me ajudeee RRS feed

  • Pergunta

  • Me ajude! Compactei uma pasta muito importante com varias Foto e agora nao esta dando pra descompactar VB.NET me ajudeee

    PARA COMPACTAR EU USEI ESSE

    Imports System.IO
    Imports System.Drawing
    Imports System.Windows.Forms

    Public Class Form1

        Public status As String
        Private arr As String() = New String(5) {}

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            status = ""
            arr(0) = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
            arr(1) = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
            arr(2) = ".{2559a1f4-21d7-11d4-bdaf-00c04f60b9f0}"
            arr(3) = ".{645FF040-5081-101B-9F08-00AA002F954E}"
            arr(4) = ".{2559a1f1-21d7-11d4-bdaf-00c04f60b9f0}"
            arr(5) = ".{7007ACC7-3202-11D1-AAD2-00805FC1270E}"
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            status = arr(0)

            If FolderBrowserDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                Dim d As DirectoryInfo = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)
                Dim selectedpath As String = d.Parent.FullName + d.Name

                If FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1 Then

                    If (Not d.Root.Equals(d.Parent.FullName)) Then
                        d.MoveTo(d.Parent.FullName & "\" & d.Name & status)
                    Else
                        d.MoveTo(d.Parent.FullName + d.Name & status)
                    End If
                    TextBox1.Text = FolderBrowserDialog1.SelectedPath

                Else
                    status = getstatus(status)

                    d.MoveTo(FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf(".")))
                    TextBox1.Text = FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf("."))
          

                End If
            End If
        End Sub

        Private Function getstatus(ByVal stat As String) As String
            For i As Integer = 0 To 5
                If stat.LastIndexOf(arr(i)) <> -1 Then
                    stat = stat.Substring(stat.LastIndexOf("."))
                End If
            Next i
            Return stat
        End Function

    End Class

    E PARA DESCOMPACTAR?

    • Movido Giovani Cr quarta-feira, 26 de março de 2014 18:17
    quarta-feira, 19 de março de 2014 17:21

Respostas

  • Boa tarde,

    De uma olhada: http://stackoverflow.com/questions/12889044/unzip-file-in-vb-net

    Att,


    Giovani Cruzara – Microsoft Contingent Staff

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

    Msdn Community Support

    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Sugerido como Resposta Herbert Lausmann quarta-feira, 26 de março de 2014 21:10
    • Marcado como Resposta Giovani Cr quinta-feira, 27 de março de 2014 18:55
    quarta-feira, 26 de março de 2014 18:16