[VB.NET] Comment utiliser les Variables d'environnement de Windows SVP ?

Version imprimable

28/06/2007, 16h16
arnofly

[VB.NET] Comment utiliser les Variables d'environnement de Windows SVP ?

Slt,

La question est ds le titre.

Par exemple, si je veux copier le fichier "toto.txt" dans le dossier temporaire de Windows XP, via l'invite de commande, je vais taper :

Code:

copy toto.txt %temp%

Comment faire la même chose en VB.NET svp ?

Code:

1
2
3
4
5
 
System.Collections.IDictionary environmentVariables;
environmentVariables = Environment.GetEnvironmentVariables(EnvironmentVariableTarget.User);
 
MessageBox.Show(environmentVariables["TEMP"].ToString());

bon c'est du C# mais les classes sont les mêmes

28/06/2007, 17h46
arnofly

je continue mes recherches et pour une fois ça va assez vite... bizard :)
Bon, je boque qd m, faut pas rever ;)

Pour la copie de fichier, j'ai trouvé ça qui fonctionne :

Code:

File.Copy("C:\toto.txt", "D:\totocopy.txt")

Maintenant, reste à remplacer D: par le chemin du dossier temporaire de windows. Pour cela je crois avoir trouvé la commande qui convient, Environment.GetEnvironmentVariable("temp"), mais je n'arrive pas à l'utiliser et je sais m pas comment verifier si la valeur est correcte. Le lecteur est-il pris en compte ? Faut-il ajouter qqc ds les "Imports" ?

Pour commencer, je pense qu'il faut l'utiliser comme ci-dessous mais une petite confirmation ne me fera pas de mal ;) Je suis debutant alors bon... je ne maitrise pas grand chose, y compris les déclarations.

Code:

Dim chemin_temp As String = Environment.GetEnvironmentVariable("temp")
28/06/2007, 17h53
Aspic

ton code :

Code:

Dim chemin_temp As String = Environment.GetEnvironmentVariable("temp")

marche très bien !

Merci The_badger_man ! les choses avancent.

J'ai modifié ton code comme cela car VB express 2005 n'aimait pas :

Code:

MessageBox.Show(chemin_temp.ToString())

Effectivement, une boite de dialogue s'ouvre en affichant le chemin complet. Donc pour ça c règlé.

Reste toujours à exploiter la valeur. Si je fais ce qui suit, ça ne fonctionne pas :
Code:

1 2 3 4 5 6 7 8 9 Public Class Dialog1 Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Me.DialogResult = System.Windows.Forms.DialogResult.OK Dim chemin_temp As String = Environment.GetEnvironmentVariable("temp") ' MessageBox.Show(chemin_temp.ToString()) File.Copy("C:\toto.txt", "chemin_temp\totocopy.txt") Me.Close() End Sub
VB Express 2005 rapporte l'erreur suivante :
Une exception de première chance de type 'System.IO.DirectoryNotFoundException' s'est produite dans mscorlib.dll

28/06/2007, 18h05
arnofly

Salut ASPIC ! :)

ça va depuis la dernière fois ? je m'y remets tu vois ;) et cette fois je voudrais en faire + en VB.NET

Salut lol, et oui je vais bien merci ^^ SInon quelle grosse erreur ai je vu dans ton code !!

Code:

1
2
3
4
5
6
7
   Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Dim chemin_temp As String = Environment.GetEnvironmentVariable("temp")
        ' MessageBox.Show(chemin_temp.ToString())
        File.Copy("C:\toto.txt", chemin_temp & "\totocopy.txt")
        Me.Close()
    End Sub

Voila !! as tu compris ton erreur ?

28/06/2007, 18h20
arnofly
Merci ASPIC, t'es trop fort ! :king:

Mettre un & apres une variable et non un \ et le reste... ok j'ai compris.

Par contre, j'ai toujours les erreurs suivantes, qui se repètent plusieurs fois pour certaines, ds VB 2005 bien que j'obtienne ce que je veux sans message d'erreur apparant durant l'execution du déboguage. c peut-etre pas tres clair là ;) disont qu'il semblerait que seul VB 2005 rapporte des erreurs et pourtant ça marche.
- Une exception de première chance de type 'System.IO.FileNotFoundException' s'est produite dans Microsoft.VisualBasic.dll (3 erreurs de ce type)
- Une exception de première chance de type 'System.IO.DirectoryNotFoundException' s'est produite dans mscorlib.dll (1 erreur de ce type)
- Une exception de première chance de type 'System.NotSupportedException' s'est produite dans mscorlib.dll (1 erreur de ce type)
- Une exception de première chance de type 'System.IO.DirectoryNotFoundException' s'est produite dans mscorlib.dll (7 erreurs de ce type)
28/06/2007, 18h22
Aspic

Citation:

Envoyé par arnomedia

Merci ASPIC, t'es trop fort !

Mettre un & apres une variable et non un \ et le reste... ok j'ai compris.

Non ta variable etait entre guillement, elle etait donc considérée comme une chaine de caractère et non comme une variable ! Le signe & sert à concatener (mettre deux chaines bout à tout) ton path.

Sinon j'ai pas compris tes histoires d'erreurs, soit plus précis ;)
28/06/2007, 18h27
arnofly

tu as répondu trop tôt ;) j'étais en train d'éditer mon message précédant.

Sinon cette fois, je pense avoir bien compris, merci. J'aime bien tes explications, elles sont clairs et précises.
28/06/2007, 18h36
Aspic
Citation:
Envoyé par arnomedia

Une exception de première chance de type 'System.IO.FileNotFoundException' s'est produite dans Microsoft.VisualBasic.dll (3 erreurs de ce type)
Une exception de première chance de type 'System.IO.DirectoryNotFoundException' s'est produite dans mscorlib.dll (1 erreur de ce type)
Une exception de première chance de type 'System.NotSupportedException' s'est produite dans mscorlib.dll (1 erreur de ce type)
Une exception de première chance de type 'System.IO.DirectoryNotFoundException' s'est produite dans mscorlib.dll (7 erreurs de ce type)
Ces erreurs interviennent lors du debogage mais n'influent pas sur ton programme c'est ca ?

Sinon tant mieux si t'aimes bien mes réponses :mouarf:
28/06/2007, 18h42
arnofly

c'est exactement ça.
28/06/2007, 18h46
Aspic

Dans ce cas la, cela veut dire qu'il y a des erreurs dans ton code mais c'est pas grave pour le bon déroulement de ton programme mais c'est mieux de les corriger.

Au vu des exeptions, c'est des erreurs de chemin d'accès de fichiers et de dossiers.

Pour y remédier, tu as dûs mettre des try/catch dans ton code. Mets un point d'arret à chaque "Catch ex as Exeption" et tu verras quand le programme va planter "implicitement".

Voila bon debuggage ! :king:
28/06/2007, 19h07
arnofly

là par contre, j'ai pas tout compris ;)

J'en suis qu'au debut du programme et ce que j'ai mis ds le post est le programme complet. Ce sont des lignes de codes pour tester la manip en fait.

Je n'ai pas fait de VB.NET depuis la dernière fois et "try/catch" et "Catch ex as Exeption", je ne sais m pas à quoi ça correspond, désolé.
28/06/2007, 19h13
Aspic
Bon c'est pas très grave ces erreurs si cela ne te nuit pas.
Code:

1 2 3 4 5 Try 'ton code ici Catch ex as exception 'intercepte l'erreur ici End Try
Tu mets ton point d'arret sur la ligne du catch. Si tu ne sais pas mettre de point d'arret alors oublit cela car ca va etre trop dur pour toi...
28/06/2007, 19h28
arnofly

j'ai pas encore le niveau là. On verra ça une autre fois.

Je vais créer un autre post pour apprendre une autre manip similaire à MS-DOS
IF EXIST "C:\machin.txt" COPY C:\machin.txt D:

Pour ce post, c bon. Je tag résolu