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

Zim

Exportação de arquivos

Mensagens Recomendadas

Zim

Ola pessoal , preciso de uma ajuda , nao sei quase nada de vb.net.

Eu quero cria um programa em que tenha um arquivo dentro dele , e quando um processo do computador iniciar esse arquivo que esta dentro do programa ser exportado para uma determinada pasta , e quando o processo for fechado o arquivo que foi exportado se auto delete.

Supondo que o nome do processo fosse : processo1.exe

O nome do arquivo : crash.ini

Diretorio da pasta : uma pasta aberta pelo openfilediog.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Muryllo

Podes colocar o teu arquivo em Project > Properties > Resources > Add Resources | Add Existing File na hora de escolher coloque em \*.* ou All Files. Seu arquivo será anexado ao projeto. Para extrair ele para uma pasta é fácil basta usar seguinte função.

   Public Shared Function Extrair_Arquivo(ByVal _Path As String, ByVal Filename As String, ByVal arrayOfBytes() As Byte) As Boolean
    Try
	    If (System.IO.Directory.Exists(_Path) = True) Then
		    System.IO.File.WriteAllBytes(_Path & "\" & Filename, arrayOfBytes)
		    Return True
	    Else
		    Return False
	    End If
    Catch IO_STATUS As Exception
	    Return False
    End Try
   End Function

Os parâmetros são, claro o diretório BASE para onde o arquivo será movido, o nome do arquivo e a matriz binária que será compilada junto ao teu programa.

My.Resources.meuarquivo

Nesse caso :

   Public Shared Function Extrair_Arquivo(ByVal _Path As String, ByVal Filename As String, ByVal arrayOfBytes() As Byte) As Boolean
    Try
	    If (System.IO.Directory.Exists(_Path) = True) Then
		    System.IO.File.WriteAllBytes(_Path & "\" & Filename, arrayOfBytes)
		    Return True
	    Else
		    Return False
	    End If
    Catch IO_STATUS As Exception
	    Return False
    End Try
   End Function
   '
   Public Function Main_Program() As Integer
    Dim status As Boolean = Extrair_Arquivo("C:\users\Murilo\exemplo", "crash.ini", My.Resources.Crash)
    If (status = True) Then
	    MsgBox("O Arquivo foi extraído com sucesso !", MsgBoxStyle.Information, "Success")
    Else
	    MsgBox("O arquivo não pode ser extraído !", MsgBoxStyle.Critical, "Error")
    End If
   End Function

A parte do 'openfiledialog' tenta procurar sozinho, isso consegues aos montes na internet. Existem muitos exemplos.

  • Voto 1

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.