Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

a3deluxe

Ajuda, FolderBrowserDialog

Mensagens Recomendadas

a3deluxe

Boa tarde,

Precisava de uma ajuda no meu programa, que serve para proteger pastas.

Queria substituir a FolderBrowserDialog1 pelo caminho final da pasta que pretendo proteger.

Aqui fica o código, para darem uma ajudinha:

//  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)
				MsgBox("pasta Protegida")
			Else

				d.MoveTo(d.Parent.FullName + d.Name & status)
				MsgBox("des")

			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("."))

			MsgBox("pasta desProtegida")
		End If

	End If
End Sub	

Obrigado

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

E não é isso que já estás a fazer com o FolderBrowserDialog1.SelectedPath? Não estou a perceber a tua dúvida.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

O FolderBrowserDialog1, abre uma janela para escolhermos a pasta.

Eu queria remover o FolderBrowserDialog1 e colocar o caminho directo dessa mesma pasta.

por exemplo: pasta = "c:\pasta1"

Editado por a3deluxe

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Então... basta substituir todos os FolderBrowserDialog1.SelectedPath por a string literal que queres (por exemplo a "c:\pasta1"), e retirar o Show do Dialog.

Se bem que é má ideia, porque ou usas directórios especiais ou não podes garantir que o caminho exista nas máquinas alvo.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

Agora não estou a conseguir Desproteger a pasta.

Para Proteger funciona bem, para Desproteger coloquei num Button o seguinte código:

//	
	status = arr(0)

		 Dim d As DirectoryInfo = New DirectoryInfo(folder)

	Dim selectedpath As String = d.Parent.FullName + d.Name

	If (d.Root.Equals(d.Parent.FullName)) Then

				   d.MoveTo(d.Parent.FullName + d.Name & status)

		MsgBox("pasta Deprotegida")

	End If 

Não dá erro nenhum e não faz nada.

Acho que pode ter a ver com o nome da pasta, a origem e o destino.

Editado por a3deluxe

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Mete um breakpoint e verifica como ficam os caminhos. É a melhor forma de perceberes o que se passa.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.