Discussion :

[letel]

Bonjour,

je voudrais mettre des fichiers pdf dans le fichier ressource de mon projet et les copier sur le disque dur que lorsque j'en ai besoin pour les modifier du style: My.Computer.FileSystem.CopyFile("test.My.Resources.BIA", "C:\essai")

Pouvez-vous m'aider?

[supersnail]

En fait,il faut créer un fileStream et ajouter les données ce qui donne ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim a As New IO.FileStream("C:\essai",IO.FileMode.OpenOrCreate)
a.Write(test.My.Resources.BIA,0,test.My.Resources.BIA.Length)

et si ça marche pas,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim a As New IO.FileStream("C:\essai",IO.FileMode.OpenOrCreate)
a.Write(CType(test.My.Resources.BIA,byte()),0,CType(test.My.Resources.BIA,byte()).Length)

[letel]

MERCI DE TA REPONSE CA FONCTIONNE!!!

Par contre j'ai encore une question:

-Dans ta solution il faut que j'ai déjà un fichier existant dans mon dossier essai (ce n'est pas un probleme) mais existe-t-il une solution pour contourner le probleme ?

[supersnail]

Essaie ça...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
try
   Dim a As New IO.FileStream("C:\essai",IO.FileMode.OpenOrCreate)
   a.Write(CType(test.My.Resources.BIA,byte()),0,CType(test.My.Resources.BIA,byte()).Length)
catch ex As Exception
   Dim a As New IO.FileStream("C:\essai",IO.FileMode.Create)
   a.Write(CType(test.My.Resources.BIA,byte()),0,CType(test.My.Resources.BIA,byte()).Length)
End Try