1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Comment mettre et extraire un fichier dans une ressources (res)

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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 526 fois - Téléchargée 81 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
julien3d Messages postés 7 Date d'inscription mercredi 23 novembre 2005 Statut Membre Dernière intervention 5 mai 2006
22 févr. 2006 à 16:08
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 !!!
cs_power Messages postés 5 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 29 septembre 2005
18 mai 2004 à 01:32
bravo, mais a koi sert le :

iFile = 0

a la fin du code??
Bruno
22 nov. 2001 à 09:42
Super...............
Mais ou est le fichier zip ?
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)