Tu peut par exemple sortir le fichier mp3 du ressource
(pour ca :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
)
Je tiens a préciser que ce source ne vient pas de moi : il est sur vbfrance.com.