Répertoire inconnue VS 2008
Résolu/Fermé
A voir également:
- Répertoire inconnue VS 2008
- Udp vs tcp - Guide
- Honor magic 5 pro vs s23 ultra - Guide
- Répertoire téléphonique gratuit - Télécharger - Bureautique
- Naruto vs pain épisode netflix ✓ - Forum Cinéma / Télé
- Psp 2000 vs 3000 ✓ - Forum PSP
2 réponses
thanassos
Messages postés
1706
Date d'inscription
lundi 19 février 2007
Statut
Contributeur
Dernière intervention
12 février 2016
137
24 nov. 2010 à 16:00
24 nov. 2010 à 16:00
Bonjour,
je ne sais pas si ça marche en VB mais sous windows les variables sont celles ci :
%USERNAME% : {username}
%USERPROFILE% C:\Documents and Settings\ : {username}
je ne sais pas si ça marche en VB mais sous windows les variables sont celles ci :
%USERNAME% : {username}
%USERPROFILE% C:\Documents and Settings\ : {username}
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
24 nov. 2010 à 16:21
24 nov. 2010 à 16:21
Bonjour,
Sers toi de la classe Environnement.
Environnement.UserName donne le nom utilisateur de la session en cours.
;o)
Sers toi de la classe Environnement.
Environnement.UserName donne le nom utilisateur de la session en cours.
;o)
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
24 nov. 2010 à 16:57
24 nov. 2010 à 16:57
Voilà un exemple:
A toi de l'adapter. Tu as tout ce qu'il faut.
Bon courage
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myname As String myname = System.Environment.UserName If My.Computer.FileSystem.FileExists("C:\Documents and Settings\" & myname & "\bureau\monFichier.txt") Then MsgBox("Trouvé !!!") Else MsgBox("Perdu !!!") End If End Sub
A toi de l'adapter. Tu as tout ce qu'il faut.
Bon courage
24 nov. 2010 à 16:01
24 nov. 2010 à 16:06
If My.Computer.FileSystem.FileExists ("If My.Computer.FileSystem.FileExists("%USERPROFILE%C:\Users\: {username}\documents\trucmachinchose.txt") Then ListBox1.Items.Add("trucmachinchose.txt")
C'est juste ou pas ?
24 nov. 2010 à 16:08
My.Computer.FileSystem.FileExists("C:\Users\%USER%\documents\trucmachinchose.txt...
24 nov. 2010 à 16:12
24 nov. 2010 à 16:17
My.Computer.FileSystem.FileExists("%USERPROFILE%\documents\trucmachinchose.txt...