Discussion :

[metallicox]

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!

[neguib]

montre ton code svp :

[metallicox]

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.

[guillaume1998]

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

Code :

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

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

[metallicox]

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

[guillaume1998]

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 :

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

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 :

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

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

Maintenant je t'explique le code:

Code :

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

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

[metallicox]

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