PROBLEMAS EM DESCOMPACTAR ARQUIVO
Eai galera beleza nao sei se estou postando no lugar certo mais se puderem me ajudar :D
eu fiz um programa para pegar um arquivo .RAR e descompactar ele na pasta que ele estiver mais ele esta com dando um problema alguem me ajuda ele so funciona se eu coloca o local exato da extração Ex: C:\Arquivos\pasta . mais eu queria saber se tem como ele extrair na pasta que ele estiver um exemplo o usuario colocou ele em meus documentos ele vai extrair la e etc.. vou postar o codigo aqui se alguem puder me aajudar
Public Class Form1
Private Sub Extrair()
Dim sc As New Shell32.Shell
Dim _pasta As Shell32.Folder = sc.NameSpace([Ô]_pasta[Ô])
Dim _arquivos As Shell32.Folder = sc.NameSpace([Ô]arquivos.zip[Ô])
_pasta.CopyHere(_arquivos.Items, 4)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Extrair()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
ele ira pegar o arquivo.zip e ira extrair onde ele estiver mais esta dando um erro alguem me ajudr porfavor . Obg galera !
eu fiz um programa para pegar um arquivo .RAR e descompactar ele na pasta que ele estiver mais ele esta com dando um problema alguem me ajuda ele so funciona se eu coloca o local exato da extração Ex: C:\Arquivos\pasta . mais eu queria saber se tem como ele extrair na pasta que ele estiver um exemplo o usuario colocou ele em meus documentos ele vai extrair la e etc.. vou postar o codigo aqui se alguem puder me aajudar
Public Class Form1
Private Sub Extrair()
Dim sc As New Shell32.Shell
Dim _pasta As Shell32.Folder = sc.NameSpace([Ô]_pasta[Ô])
Dim _arquivos As Shell32.Folder = sc.NameSpace([Ô]arquivos.zip[Ô])
_pasta.CopyHere(_arquivos.Items, 4)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Extrair()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
ele ira pegar o arquivo.zip e ira extrair onde ele estiver mais esta dando um erro alguem me ajudr porfavor . Obg galera !
Cara,
1º - De acordo com as regras do Fórum, evite tÃtulos genéricos. ao invés de [Ô][txt-color=#0000f0]ALGUEM PODE ME AJUDAR COM UM PROBLEMINHA EM VB ?[/txt-color][Ô] digite [Ô][txt-color=#0000f0]PROBLEMAS EM DESCOMPACTAR ARQUIVO[/txt-color][Ô].
2º - Nunca se esqueça da pontuação ortográfica. Fica difÃcil ler e entender um texto enorme como o seu, sem ponto, vÃrgulas, parágrafos, etc...
3º - Se você quiser descompactar arquivos na mesma pasta que o programa está instalado é:
Application.StartUp
Se o arquivo estiver dentro de uma pasta onde o executável está:
Application.StartUp & [Ô]\pasta\[Ô] & _arquivos
1º - De acordo com as regras do Fórum, evite tÃtulos genéricos. ao invés de [Ô][txt-color=#0000f0]ALGUEM PODE ME AJUDAR COM UM PROBLEMINHA EM VB ?[/txt-color][Ô] digite [Ô][txt-color=#0000f0]PROBLEMAS EM DESCOMPACTAR ARQUIVO[/txt-color][Ô].
2º - Nunca se esqueça da pontuação ortográfica. Fica difÃcil ler e entender um texto enorme como o seu, sem ponto, vÃrgulas, parágrafos, etc...
3º - Se você quiser descompactar arquivos na mesma pasta que o programa está instalado é:
Application.StartUp
Se o arquivo estiver dentro de uma pasta onde o executável está:
Application.StartUp & [Ô]\pasta\[Ô] & _arquivos
Citação::
Cara,
1º - De acordo com as regras do Fórum, evite tÃtulos genéricos. ao invés de [Ô][txt-color=#0000f0]ALGUEM PODE ME AJUDAR COM UM PROBLEMINHA EM VB ?[/txt-color][Ô] digite [Ô][txt-color=#0000f0]PROBLEMAS EM DESCOMPACTAR ARQUIVO[/txt-color][Ô].
2º - Nunca se esqueça da pontuação ortográfica. Fica difÃcil ler e entender um texto enorme como o seu, sem ponto, vÃrgulas, parágrafos, etc...
3º - Se você quiser descompactar arquivos na mesma pasta que o programa está instalado é:
Application.StartUp
Se o arquivo estiver dentro de uma pasta onde o executável está:
Application.StartUp & [Ô]pasta[Ô] & _arquivos
Obrigado, desculpa e a primeira vez que entro aqui
Alguém pode me ajudar onde eu coloco esse código ? Application.StartUp & [Ô]\pasta\[Ô] & _arquivos, poderia me passar o ele colocado já em o código que eu passei se for possivel sou iniciante em VB
Cara,
Primeiro passe uma informação, por favor:
O arquivo a ser descompactado, ele ficará em uma pasta fixa ou o usuário pode salvá-la em qualquer lugar?
Se for a segunda opção, onde você guarda as informações de salvamento? Em um arquivo de Log, Banco de dados, ou
não há esta funcionalidade?
Sendo assim você precisará usar um OpenFileDialog para dar ao usuário a possibilidade dele procurar e encontrar o arquivo.
Veja o exemplo abaixo:
no Exemplo, utilizei uma caixa de diálogo para localizar arquivos que, se for clicado Ok, retornará o caminho do arquivo.
Assim você tem o caminho do arquivo que o usuário escolheu e pode jogar pra dentro do comando de descompactar
espero ter ajudado.
Primeiro passe uma informação, por favor:
O arquivo a ser descompactado, ele ficará em uma pasta fixa ou o usuário pode salvá-la em qualquer lugar?
Se for a segunda opção, onde você guarda as informações de salvamento? Em um arquivo de Log, Banco de dados, ou
não há esta funcionalidade?
Sendo assim você precisará usar um OpenFileDialog para dar ao usuário a possibilidade dele procurar e encontrar o arquivo.
Veja o exemplo abaixo:
no Exemplo, utilizei uma caixa de diálogo para localizar arquivos que, se for clicado Ok, retornará o caminho do arquivo.
Assim você tem o caminho do arquivo que o usuário escolheu e pode jogar pra dentro do comando de descompactar
espero ter ajudado.
Veja se esse exemplo ajuda, não testei com arquivos RAR, somente com ZIP.
Galera Muito Obrigado mesmo, sou iniciante em VB e vocês me ajudaram muito.
Ok, se o tópico foi útil e ajudou a resolver sua duvida, favor encerrar o mesmo.
Faça seu login para responder