Comment mettre et extraire un fichier dans une ressources (res)

Commenter

Contenu du snippet

Le but de ce code est de montrer comment on peut creer et extraire d'un fichier de ressources (.RES), des fichiers particuliers : fichiers DATA purs : ZIP, EXE etc...
Ceci est bien utile si vous devez 'transporter' un fichier qui ne serait pas forcement present sur le disque...
A bon entendeur ;-)

Source / Exemple : 


'///////////////////////////////////////////////
'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

A voir également

S'inscrire maintenant

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.

Du même auteur (GEDDi)