Ir para o conteúdo
MrGobliN

erro no eleminar de um ficheiro

Mensagens Recomendadas

MrGobliN

Boas pessoal, eu estou a desenvolver um projecto de gestao de alunos numa empresa e quando o formulario principal é carregado mostra as informações do aluno e um rectângulo, em que se clica e se introduz la a imagem.

Mas eu se quiser apagar essa imagem para alterar por outra ele da erro e diz que a imagem esta sendo usada, mesmo quando ele não esta a ser utilizada.

Usei este código para apagar a imagem ,mas aparece o erro que esta sendo utilizada:

File.Delete(".\Imagens\" & a & ".png")

Introduzir a imagem (não tem erros):

   Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
 'OpenFileDialog
	Me.OpenFileDialog1.Multiselect = True
	Me.OpenFileDialog1.Title = "Selecionar imagem"
	OpenFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
	'filtra para exibir somente arquivos de imagens
	OpenFileDialog1.Filter = "Images (*.BMP;*.JPG;*.GIF,*.PNG,*.TIFF)|*.BMP;*.JPG;*.GIF;*.PNG;*.TIFF|" & "All files (*.*)|*.*"
	OpenFileDialog1.CheckFileExists = True
	OpenFileDialog1.CheckPathExists = True
	OpenFileDialog1.FilterIndex = 2
	OpenFileDialog1.RestoreDirectory = True
	OpenFileDialog1.ReadOnlyChecked = True
	OpenFileDialog1.ShowReadOnly = True
	Dim dr As DialogResult = Me.OpenFileDialog1.ShowDialog()
	a = IdAlunoTextBox.Text
	If dr = System.Windows.Forms.DialogResult.OK Then
		For Each arquivo As [string] In OpenFileDialog1.FileNames
			Try
				txtArquivo.Items.Add(arquivo)
				File.Copy(arquivo, ".\Imagens\" & a & ".png")
			Catch ex As Exception
				MsgBox("Este aluno ja tem Foto, Apague-a primeiro")
			End Try
		Next
	End If
End Sub

Editado por apocsantos

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.