Copy file uit recources naar map

[WILLIAMXXX]

Hey,

Ik ben bezig een programma te maken die een bestand (uit de recources van het programma) kopieerd naar een map die door de gebruiker wordt gekozen...

Ik heb nu deze code(maar die werkt natuurlijk niet goed)

TextboxLoactie.text = de plaats waar het heen gekopieerd moet worden
CopyFile moet het bestand uit de recources zijn(bijv: test.exe)
Daaran geeft die een message of het gelukt is of niet...

    Private Sub ButtonInstal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonInstal.Click
        Dim CopyNaarMap As String = TextBoxLoactie.Text & "\test.exe"
        Dim CopyFile As String = ...

        If IO.File.Exists(CopyFile) = True Then
            IO.File.Copy(CopyFile, CopyNaarMap)
            MsgBox("Succesvol gekopieerd naar: " & CopyNaarMap, MsgBoxStyle.Exclamation)
        Else
            MsgBox("Kon het bestand niet kopiëren",MsgBoxStyle.Critical
        End If
    End Sub

Weet iemand hoe je dit doet?
Het kan dus niet omdat CopyFile een String is en zou moeten verwijzen naar de locatie van een programma(bijv: c:\test.exe) op die manier is het me wel gelukt het de bestand te kopieeren...

 

[CoD_NL]

Je zou natuurlijk altijd nog de API CopyFile() kunnen gebruiken:
http://msdn.microsoft.com/en-us/library/aa363851(VS.85).aspx

(al kun je misschien beter wat voorbeelden zoeken van hetgeen je nu gebruikt)

 

[WILLIAMXXX]

Daar wordt ik niet veel wijzer van
Zoeken heb ik allang gedaan hoor, maar ik heb niets gevonden...

 

[That Guy]

MsgBox("Kon het bestand niet kopiëren",MsgBoxStyle.Critical

moet de 1e "(" niet weg? (of er 1tje achter)

En voor de rest, wat is nou precies het probleem? Dat je niet weet hoe je uit je project een resource haalt? Heeft 200X niet iets van project.resources.xxx ofzo?

In vb6 zat er een 'loadresdata' functie in. Kon je direct aanroepen.

:thumb:

 

[WILLIAMXXX]

In die haakjes zit het probleem niet hoor

Zou je trouwens een voorbeeldje kunnen geven?

 

[That Guy]

uiteraard:


Stel je hebt in je resource dus een exe gezet, met ID 101.
Dan moet je de file binary uitspugen. Dat doe je zo in vb6:

dim MyExe() as byte [COLOR="seagreen"]'noot dat dit dus een array is...[/COLOR]
dim MyPad as string
dim ff as integer

mijnPad = "C:\bla.exe"
MyExe = LoadResData(101, "CUSTOM") [COLOR="SeaGreen"]'loads res data in array[/COLOR]
ff = freefile

Open MyPad For Binary As #ff [COLOR="seagreen"]'open, put, &close[/COLOR]
   Put #ff, , MyExe
Close #ff

Nu met gratis freefile!