[Resolvido] Criar arquivos via Formulário e Alterar Atributos de

[Altirock 0]

Não estou conseguindo definir mais de 1 atributo para pasta e arquivo.

 

Segue o código:

Imports System.IO


Public Class VacinA

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		fbd.Description = "Selecione o PenDrive"
		fbd.RootFolder = Environment.SpecialFolder.MyComputer
		fbd.ShowNewFolderButton = False

		fbd.ShowDialog()

		Dim nomePasta As String = fbd.SelectedPath & "\autorun.inf"
		Dim nomeArquivo As String = "k:\autorun.inf\protect"

		Dim Pasta = Directory.CreateDirectory("k:\autorun.inf")

		File.SetAttributes(nomePasta, FileAttributes.ReadOnly)
		File.SetAttributes(nomePasta, FileAttributes.Hidden)


		Dim Arquivo = File.Create(nomeArquivo, FileMode.CreateNew)

		File.SetAttributes(nomeArquivo, FileAttributes.ReadOnly)

		MessageBox.Show("Protegido com sucesso!", "Vacina", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)


	End Sub

End Class

Será q podem me ajudar? http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

 

Vlw

 

Então, nessa parte do código, a última instrução atropela a anterior, preciso que o arquivo e a pasta fiquem com os atributos de somente leitura, oculto e morto.

 

File.SetAttributes(nomePasta, FileAttributes.SparseFile)
File.SetAttributes(nomePasta, FileAttributes.ReadOnly)
File.SetAttributes(nomePasta, FileAttributes.Hidden)

Alguem pode me ajudar como seto vários atributos para o mesmo arquivo ou pasta?

[quintelab 91]

Movido Plataforma .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET » Windows Applications

 

Da forma que fez acima não funcionou? O que ocorre?

 

Abraços...

[Oenning 0]

Estou chutando, tente:

File.SetAttributes(nomePasta, FileAttributes.Hidden | FileAttributes.ReadOnly | FileAttributes.SparseFile)

[Altirock 0]

não deu não...

 

tentei esse caractere | mas consta como inválido

tentei &

tentei +

tentei and

 

nada deu certo

 

do jeito q fiz só funciona o último atributo que seto...

 

Movido Plataforma .NET http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET » Windows Applications

 

Da forma que fez acima não funcionou? O que ocorre?

 

Abraços...

 

Qd eu seto os atrbutos de uma pasta ou arquivo, acaba constando só o último:

 

ex:

File.SetAttributes(nomeArquivo, FileAttributes.Hidden)

File.SetAttributes(nomeArquivo, FileAttributes.ReadOnly)

[Oenning 0]

O operador | é só para C# eu acho, mas aqui ele usa o + e funciona. Veja:

http://www.eggheadcafe.com/tutorials/aspne...-attribute.aspx

[Altirock 0]

Opa resolveu!

 

Deem uma olha no código como ficou:

 

Imports System.IO

 

 

Public Class VacinaPendrive

	Private Sub Formulario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		'Seleção de Drive'
		fbd.Description = "Selecione o PenDrive"
		fbd.RootFolder = Environment.SpecialFolder.MyComputer
		fbd.ShowNewFolderButton = False

		fbd.ShowDialog()

		'Cria pasta com arquivo se ela ainda não existe'
		Dim nomePasta As String = fbd.SelectedPath & "\autorun.inf"

		If Directory.Exists(nomePasta) = False Then

			Dim nomeArquivo As String = nomePasta & "\protected_by_altieres"

			Dim Pasta = Directory.CreateDirectory(nomePasta)

			Dim ListaAtributos As Integer

			ListaAtributos += FileAttributes.ReadOnly + FileAttributes.Archive + FileAttributes.Hidden

			File.SetAttributes(nomePasta, ListaAtributos)

			Dim Arquivo = File.Create(nomeArquivo, FileMode.CreateNew)

			File.SetAttributes(nomeArquivo, ListaAtributos)

			MessageBox.Show("Protegido com sucesso!", "Vacina Efetuada", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
		End If

	End Sub

End Class

 

Vlw Pessoal