[VB NET 2005] Suppression Fichier

Bonjour,

Je n'arrive pas à supprimer un fichier temporaire.
Explication : Je créé un fichier a l'aide de la commande net view,
je lis le fichier, en extrait les données, puis je veux supprimer celui-ci.

J'obtiens l'exception suivante :
The process cannot access the file because it is being used by another process.

J'utilise bien la méthode .close() sur mon streamreader.
Pour supprimer le fichier, j'utilise My.Computer.FileSystem.DeleteFile

Si vous auriez une solution, ca serait cool!

montre ton code svp :?:

voila mon code :

-----------------------------------------------------------------------------------

Dim FichierNomOrdinateurs As String

FichierNomOrdinateurs = My.Application.Info.DirectoryPath + "\NomOrdinateurs.txt"
'liste les pcs
Shell("cmd.exe /c " + """" + "net view /DOMAIN:" + "monDomaine" + " > " + """" + FichierNomOrdinateurs + """" + """", vbHide)

System.Threading.Thread.Sleep(2000)

'Lecture FichierOrdinateurs
Try
Dim Fichier As New System.IO.StreamReader(FichierNomOrdinateurs, System.Text.Encoding.ASCII)
Dim ligne As String

Do
ligne = Fichier.ReadLine()
'MsgBox(ligne)
End If
Loop Until ligne Is Nothing
Fichier.Close()

System.Threading.Thread.Sleep(2000)

'My.Computer.FileSystem.DeleteFile(FichierNomOrdinateurs)

-------------------------------------------------------------------------

Merci d'avance.

utilise cette fonction que j'ai moi meme fait ^^, tu devrais arriver a faire ce que tu veux avec :wink:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Function GetMSDOS(ByVal command As String) '******************************************* '*** Creer le 10/09/2005 par B.Guillaume *** '******************************************* Dim ps As New ProcessStartInfo("cmd.exe") Dim result As String = ""   'On redirige le flux entrant ps.RedirectStandardInput = True 'Indispensable pour pour pouvoir rediriger le flux ps.UseShellExecute = False 'On redirige le flux sortant ps.RedirectStandardOutput = True 'On indique que aucune fentre ne sera creer ps.CreateNoWindow = True Dim process As Process = System.Diagnostics.Process.Start(ps) 'On ecrit dans la fenetre process.StandardInput.WriteLine(command) 'On ferme le flux d'ecriture process.StandardInput.Close() 'On lit le flux result = process.StandardOutput.ReadToEnd 'On ferme le flux process.StandardOutput.Close()   'On retourne le resultat Return result End Function

---

S'il te plait, pourrais-tu expliquer plus en détail le code?
Je comprend pas tellement le fonctionnement

Ok pas de probleme, tu debute en vb.net?

C'est une fonction qui prend en parametre la commande ms-dos que tu souhaite, et qui retourne une chaine de caractere contenant le resultat de la commande ms-dos.Exemple d'utilisation:

Code:

---

1 2 3 4

dim str as string str = GetMSDOS("net view") messagebox.show(str)

---

Cette exemple affichera le resultat de la commande "net view" dans une messagebox.

Dans ton cas tu peux lutiliser comme ceci:

Code:

---

1 2 3 4

dim str as string str = GetMSDOS("net view /DOMAIN:" & ledomaine) messagebox.show(str)

---

Maintenant je t'explique le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'Je fait un objet PocessStartInfo Dim ps As New ProcessStartInfo("cmd.exe") 'String contenant le resultat Dim result As String = ""   'On redirige le flux entrant c'est a dire que on indique que l'on va ecrire dans la fenetre ms-dos ps.RedirectStandardInput = True 'Indispensable pour pour pouvoir rediriger le flux ps.UseShellExecute = False 'On redirige le flux sortant pour pouvoir recuperer ce qui est ecrit dans la fentre ms-dos ps.RedirectStandardOutput = True 'On indique que aucune fentre ne sera creer ps.CreateNoWindow = True 'On lance le processus Dim process As Process = System.Diagnostics.Process.Start(ps) 'On ecrit dans la fenetre process.StandardInput.WriteLine(command) 'On ferme le flux d'ecriture process.StandardInput.Close() 'On lit le flux result = process.StandardOutput.ReadToEnd 'On ferme le flux process.StandardOutput.Close() 'On retourne le resultat Return result

---

Débutant oui et non, mais je ne connaissais pas.
J'ai utilisé ta fonction, ca marche.