Private Sub Ressource_DB(ByVal FichierDB As String) ' Ressort la DB originale stockée dans les ressources Dim Temp() As Byte, ff As Integer ' Récupère la ressource Temp = LoadResData(4012, "DB.ORIGINALE") ' Vire le fichier si déjà existant If Dir(FichierDB) <> "" Then Kill FichierDB ' Sauvegarde le fichier ff = FreeFile Open FichierDB For Binary Access Write As #ff Put #ff, , Temp Close #ff End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDeclare Sub CopyPtrFromStruct Lib "kernel32" Alias "RtlMoveMemory" ( _ ByVal ptr As Long, _ struct As Any, _ ByVal cb As Long) ' avec cb = Len(struct) Declare Sub CopyStructFromString Lib "kernel32" Alias "RtlMoveMemory" ( _ dest As Any, _ ByVal source As String, _ ByVal cb As Long) ' avec cb = Len(dest) Declare Sub CopyStructFromPtr Lib "kernel32" Alias "RtlMoveMemory" ( _ struct As Any, _ ByVal ptr As Long, _ ByVal cb As Long) ' avec cb = Len(struct) (supposition)