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 191 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
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 !!!
Signaler
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

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)