A voir également:
- 'Overflow' avec gestion fichiers
- Logiciel gestion de stock avec douchette - Forum PHP
- Gestion des demandes d'intervention - Forum PHP
- Gestion des championnats - Forum Visual Basic
- Overflow hidden - Forum Javascript / DHTML
- Tableau gestion des clés ✓ - Forum VB.NET
1 réponse
Moi j'y arrive avec ce code:
Dim Taille As Long
Dim FreeFileNumber As Integer
Dim FreeFileNumber2 As Integer
Dim Buffer1 As String
FreeFileNumber = FreeFile
Taille = FileLen("C:\abey.exe")
Open "C:\My Documents\VB60\VBCS\CpyExe2exe\makabey.exe" For Binary Access Read As #FreeFileNumber
Buffer1 = Input(Taille, FreeFileNumber)
FreeFileNumber2 = FreeFile
Open "C:\bey3.exe" For Output Access Write Lock Read As #FreeFileNumber2
Print #FreeFileNumber2, Buffer1
Close FreeFileNumber2
Close FreeFileNumber
Dim Taille As Long
Dim FreeFileNumber As Integer
Dim FreeFileNumber2 As Integer
Dim Buffer1 As String
FreeFileNumber = FreeFile
Taille = FileLen("C:\abey.exe")
Open "C:\My Documents\VB60\VBCS\CpyExe2exe\makabey.exe" For Binary Access Read As #FreeFileNumber
Buffer1 = Input(Taille, FreeFileNumber)
FreeFileNumber2 = FreeFile
Open "C:\bey3.exe" For Output Access Write Lock Read As #FreeFileNumber2
Print #FreeFileNumber2, Buffer1
Close FreeFileNumber2
Close FreeFileNumber
