[VB6] .res in bestimmten Ordner kopieren

[GiGantic]

Wie kann ich zB. eine .res datei in einen bestimmten Ordner kopieren ?
(zB. C:\Programme\...\NAME.exe ?)

Hier mal mein Code :

Dim b() As Byte
b = LoadResData(101, "CUSTOM")
Open App.Path & "\NAME.exe" For Binary As #1
Put #1, , b()
Close #1

(Die .exe wird jetzt natürlich im Ordner ausgegeben wo sich das Programm befindet)

#greetZ

[Guimaster]

Einfach anstatt

Open App.Path & "\NAME.exe" For Binary As #1

Open App.Path & "C:\Programme\NAME.exe" For Binary As #1

so sollte es eigentlich gehen ...einfach mal probieren ^^

[GiGantic]

Thx schon mal...

aber jetzt kommt immer:

Dateiname oder -nummer falsch

.res nummer stimmt aber....

Nochmal der verbesserte code:

Private Sub Command1_Click()

Dim b() As Byte
b = LoadResData(101, "CUSTOM")
Open App.Path & "C:\Programme\NAME.exe" For Binary As #1
Put #1, , b()
Close #1

End Sub


#GreetZ

[Tix]

Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open pfad For Binary As #1
Put #1, , buffer()
Close #1

-> Resource löschen -> neu einfügen und speichern, dann gehts wieder ..

[GiGantic]

jo so gehts:

Dim b() As Byte
b = LoadResData(101, "CUSTOM")
Open "C:\Programme\Name.exe" For Binary As #1
Put #1, , b()
Close #1



ThX

#greetZ