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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 024 fois - Téléchargée 79 fois

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

Ajouter un commentaire

Commentaires

Signaler
-
Super...............
Mais ou est le fichier zip ?
Signaler
cs_power
Messages postés
5
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
29 septembre 2005
 -
bravo, mais a koi sert le :

iFile = 0

a la fin du code??
Signaler
julien3d
Messages postés
7
Date d'inscription
mercredi 23 novembre 2005
Statut
Membre
Dernière intervention
5 mai 2006
 -
C'est super pratique, je me suis amusé à faire ça avec des fichiers txt, ini. Par contre chose curieuse, ça ne marche pas avec les .htm, et même si on les renomme en .ini ou .txt !!!
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)