[vb.net]suppression d'un fichier

Question

bonsoir 
bon voila j'ai le code suivant pour redimensionner des images pour les enregistrer dans une base de donn&#233;es le seul probleme c'est qu'il m'enregistre l'image une seconde fois modifi&#233; a l'emplacement de l'autre image sous la forme : " CheminDeMonImage.jpeg(1)" 
c'est pour savoir si il n'y a pas moyen de supprimer ce fichier une fois l'enregistrement fai ds ma base avec les bonnes dimensions. 
Wala MERCI!!!

 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then 
            strImg = OpenFileDialog1.FileName 
            img = Image.FromFile(strImg) 

            Me.PictureBox3().SizeMode = PictureBoxSizeMode.AutoSize 
            PictureBox3.Image = System.Drawing.Image.FromFile(strImg) 
            W1 = Me.PictureBox3.Width 
            H1 = Me.PictureBox3.Height 

            W2 = 100 
            H2 = 75 
            
            Dim bm_source As New Bitmap(Me.PictureBox3.Image) 

            Dim bm_dest As New Bitmap(W2, H2) 

            Dim gr_dest As Graphics = Graphics.FromImage(bm_dest) 

            gr_dest.DrawImage(bm_source, 0, 0, W2, H2) 
          
            Me.PictureBox1.Left = 5 
            Me.PictureBox1.Top = 5 

            Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage 

            Me.PictureBox1.Width = W2 
            Me.PictureBox1.Height = H2 
            Me.PictureBox1.Image = bm_dest 
            strImg = strImg + "(1)" 
            Me.PictureBox1.Image.Save(strImg, System.Drawing.Imaging.ImageFormat.Jpeg) 

            tabImgByt = images.ConvertirImageByte(strImg) 

        End If

cs_trabice · Answer

lu

Imports Scripting.FileSystemObjectClass



Public fso As FileSystemObject


Public fichier As File

fso = New FileSystemObject


File= fso2.GetFile(chemin d'acc&#232;s du fichier)



fichier.Delete(true)

fabrice

cs_lim · Answer

salut

Imports system.io

file.delete(chemin_du_fichier)

@+
LIM

cs_trabice · Answer

euh..oui ca marche aussi :-)
ma m&#233;thode marche quand le fichier est utilis&#233;.on peut forcer la suppression.
si je dis pas de b&#233;tise..

cs_Alexis35 · Answer

oki merci a vous deux je vais essayer tout ca!
je vous tiens o courant

cs_Alexis35 · Answer

Imports Scripting.FileSystemObjectClass

Je ne peux pas importer ca...
Je dois ajouter une dll, si oui laquelle!???
Merci

cs_lim · Answer

Salut

Pour Imports Scripting.FileSystemObjectClass je ne sais pas. 

Ce que je sais c'est que ce n'est pas du .NET

Essaye plut&#244;t IMPORTS SYSTEM.IO, 

@+
LIM

cs_Alexis35 · Answer

avec cette methode adapt&#233; au vb.net j'ai l'erreur suivante:

Une exception non g&#233;r&#233;e du type 'System.Security.SecurityException' s'est produite dans testimg.exe


Informations suppl&#233;mentaires : Exception de HRESULT : 0x800A0046 (CTL_E_PERMISSIONDENIED).

cs_lim · Answer

Salut

Ton fichier doit &#234;tre utilis&#233; par ton propgramme, donc tu ne peux pas le supprimer.
il faut lib&#233;rer le fichier avant de pouvoir le supprimer. C'est ce que je comprend de ton message d'erreur.
Si le fichier que tu veux supprimer est l'image dans ta picturebox tu ne pourras pas le supprimer. Il faudra lib&#233;rer la picturebox et l'objet image avant de passer &#224; la suppression du fichier

@+
LIM

cs_Alexis35 · Answer

le fichier que je veux supprimer est le nouveau fichier cr&#233;&#233; a de bonnes dimensions pour ma base de donn&#233;es
mais pour libere ma picture box je fais bien picturebox1=nothing et idem pour limage img=nothing mais cela ne marche pas

cs_lim · Answer

im=Nothing ne lib&#232;re pas la ressource

Voil&#224; un bout de solution

Soit 
   PBOX (une picturebox)
   IM (objet IMAGE)

'Charge une image
   IM=new BITMAP(TA_PHOTO)
   PBOX.IMAGE=IM

'D&#233;charge une image
   PBOX.Dispose
   IM.dispose

Avec dispose tu lib&#232;res les ressources utilis&#233;es par ton image

@+
LIM

cs_Alexis35 · Answer

Mais meme en lib&#233;rant ma picture box et mon img cela me sort le meme probleme je ne comprend pas

cs_lim · Answer

l&#224; je vois pas

met un try catch dans ton code pour voir l'erreur exacte

TRY

'TON CODE

CATCH EX AS EXCEPTION
   MSGBOX(ex.tostring)
END TRY

dans la msgbox tu auras une peut-&#234;tre une xplcation plus claire de ton probl&#232;me

@+
LIM

cs_Alexis35 · Answer

Eh bien il medit: 
"System.SecurityException : Exception de HRESULT : 0x800A0046(CTL_E_PERMISSIONIED)
at scrpting.FileClass.Delete(Boolean Force)
at testimg.form1.btnsave_click(object sender, EventArgs e) in E:\Visual Studio Projects	estimg\form1.vb:line 300

Je ne suis pas beaucoup plus avanc&#233;...

cs_lim · Answer

si car tu as la ligne de code qui plante

in E:\Visual Studio Projects	estimg\form1.vb:line 300

@+
LIM

cs_Alexis35 · Answer

je crois que c'est lorsque j'appelle la conversion de mon image en byte pour la mettre dans un tableau de byte qui pose pb:

tabImgByt = images.ConvertirImageByte(strImg) 

il n'y a pas un moyen comme "dispose" pour les tableaux de byte??

cs_Alexis35 · Answer

bah oui mais la ligne 300 c'est:

fichiers.Delete(
True)

dc je c po trop koi faire!

cs_lim · Answer

Petit bout de prog que je viens de tester

Soit une Form, 2 boutons et 1 picturebox


Imports System.IO


Dim IM 
As Image

'Charge une image dans la picturebox
Private 
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click
   'Si mon objet image n'est pas vide je le vide

   If 
Not (IM 
Is 
Nothing) 
Then
         IM.Dispose()

   End 
If
   'Affectation de l'image &#224; mon objet
   IM = 
New Bitmap("C:	est.jpg")
   'Affichage de l'image dans la picture box
   PictureBox1.Image = IM

End 
Sub



'Sauve l'image
'Vide la picture box
'Lib&#232;re la ressource objet image
'Supprimer le fichier de d&#233;part
'Renomme de nouveau fichier en fichier de d&#233;part (pour que l'application puisse touner en boucle)
'Suprimer le fichier temporaire
Private 
Sub Button2_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button2.Click
   'Sauvegarde mon image
   PictureBox1.Image.Save("C:	est1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
   'Vide la picture box
   PictureBox1.Image = 
Nothing
   'Vide mon objet image
   IM.Dispose()
   'Supprimer le fichier de d&#233;part
   File.Delete("C:	est.jpg")
   'Copie le ficher sauvagarder sous le nom du fichier de d&#233;part
   File.Copy("C:	est1.jpg", "C:	est.jpg")
   'Supprimer le fichier sauvagarder
   File.Delete("C:	est1.jpg")

End 
Sub

A toi de voir si &#231;&#224; peut t'aider

@+
LIM

cs_Alexis35 · Answer

Bah merci mais non cela ne m'avance pas car en fait mon image redimensionn&#233;e est juste pour ma base de donn&#233;es il faut que je garde l'image originale sur mon pc!

cs_lim · Answer

je suis d'accord avec toi mais ceci servait d'exemple pour te montrer un raisonnement, il est &#233;vident que tu dois adapter le bout de solution que je te propose &#224; ton cas pr&#233;cis

@+
LIM

cs_trabice · Answer

sisi c'est du .net
extrait de l'aide .net

Pour cr&#233;er une r&#233;f&#233;rence &#224; la biblioth&#232;que de types Scripting (Scrrun.dll) 
Dans le menu Projet, cliquez sur Ajouter une r&#233;f&#233;rence, puis sur l'onglet COM. 
S&#233;lectionnez Microsoft Scripting Runtime dans la liste Nom du composant, puis cliquez sur S&#233;lectionner. 
Vous pouvez &#224; pr&#233;sent utiliser l'Explorateur d'objets pour visualiser les objets, les collections, les propri&#233;t&#233;s, les m&#233;thodes, les &#233;v&#233;nements et les constantes du mod&#232;le FSO. 
Pour cr&#233;er un objet FileSystemObject 
Dimensionnez une variable comme type FileSystemObject, comme dans le code suivant : 
Dim fso As New FileSystemObject 
- ou - 
Utilisez la m&#233;thode CreateObject pour cr&#233;er un objet FileSystemObject, comme dans le code suivant : 
fso = CreateObject("Scripting.FileSystemObject")

[vb.net]suppression d'un fichier

20 réponses

Discussions similaires