Exportação de arquivos

[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.

[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.