Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 191 fois - Téléchargée 79 fois
'/////////////////////////////////////////////// 'Code Source : Gerome GUILLEMIN // le 01/03/2000 'http://www.multimania.com/gedd123 (Freewares VB 5, QB et O'basic) '/////////////////////////////////////////////// 'Fichier de Ressources : TOTO.RC // Prototype pour fichier Ressource avec un Fichier DATA (ZIP, JPEG etc...) 32 ZOB MOVEABLE PRELOAD TOTO.ZIP '/// Fin du fichier de Ressources : à compiler avec RC.EXE : commande RC.EXE Nom_du_Fic.RC 'Code a implementer (dans un BAS ou FRM) Sub ExtraitZIP() Dim sFile As String Dim b() As Byte Dim iFile As Integer Resultat$ = "MonFic.zip" 'Fichier destination b = LoadResData(32, "ZOB") 'contient TOTO.ZIP ! 'Le ID = numéro de la ressource // "ZOB" est le type Propriétaire de la Ressource 'et le fichier contenu doit etre sauvé en Byte ! 'exemple : 32 ZOB MOVEABLE PRELOAD TOTO.zip iFile = FreeFile Open ResultatDAT$ For Binary Access Write Lock Read As #iFile Put #iFile, , b Close #iFile iFile = 0 End Sub
iFile = 0
a la fin du code??
Mais ou est le fichier zip ?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.