Savoir le chemin du dossier "Application Data" de l'utilisateur en cours

Bonjour,

J'ai développé un script qui permet d'écrire un texte dans un fichier.
Je voudrais mettre ce fichier dans le dossier "Application data" de l'utilisateur en cours. Est ce qu'il y'a une fonction en VBScript qui me permet de récupérer le chemin de ce dossier ?
genre :
C:\Documents and Settings\nom_utilisateur\Application Data

Merci d'avance.

Bonjour.

Je pense que tu peux simplement utiliser la variable d'environnement UserName ou la propriété UserName de l'objet WshNetwork, qui te renvoient toutes les deux le nom de l'utilisateur courant.

Donc :

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")

---

Ou :

Code:

---

1 2	Set WshNet = CreateObject("WScript.Network") strUserName = WshNet.Username

---

Puis tu le mets dans ta chaine qui contient le chemin de app data :

Code:

---

strPath = "C:\Documents and Settings\" & strUserName & "\Application Data"

---

Ca devrait normalement marcher.

Code:

---

WshShell.ExpandEnvironmentStrings("%APPDATA%")

---

renvoi le chemin complet, sans risque de compilation d'un lecteur autre que C:\ (par exemple)

ProgElecT a parfaitement raison c'est beaucoup mieux. Bien joué.

Problème résolu, Je tiens à vous remercier les deux.
Les deux solutions marchent parfaitement, bien que la deuxième solution est meilleur..

J’ai maintenant un autre problème !

En fait je veux que pour chaque visiteur de la page web que j’ai crée, un fichier soit enregistré dans le dossier Application data de son PC pour garder quelques informations qu’il a saisie. Le problème c’est que les paramètres de sécurités de l’intranet local d’internet explorer ne permettent pas d’exécuter mon script, et donc je ne peux pas créer le fichier souhaité sur le disque de chaque poste client.

Internet Explorer m’affiche cette erreur :
Un composant ActiveX ne peut pas créer un objet : 'Scripting.FileSystemObject'

Je dois baisser le niveau de sécurité de certaines options pour que le script soit exécuté, ce qui est pénible de le faire, car j’ai plus de 100 postes clients.

Y’a-t-il une solution pour éviter ce problème ? Y’a-t-il une autre fonction qui permet de créer un simple fichier sans que Internet Explorer le bloque ?
Voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

sub Ecrire() Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") dim WshShell Set WshShell = CreateObject("WScript.Shell") Const ForWriting = 2 Dim f Set f = oFSO.OpenTextFile(WshShell.ExpandEnvironmentStrings("%APPDATA%") & "\texte.txt", ForWriting,true) f.write( form1.txtuser.value & vbcrlf & form1.txtpassword.value ) end sub

---

Merci d'avance !

Citation:

---

Envoyé par ProgElecT

Code:

---

WshShell.ExpandEnvironmentStrings("%APPDATA%")

---

renvoi le chemin complet, sans risque de compilation d'un lecteur autre que C:\ (par exemple)

---

IE m'affiche le message d'erreur suivant: "'WshShell' est indéfini"

Salut, bienvenue sur DVP
As tu aussi bien recopié ses 2 lignes avant dans ton code ?

Code:

---

1 2	dim WshShell Set WshShell = CreateObject("WScript.Shell")

---

Citation:

---

Envoyé par Donald Duck

IE m'affiche le message d'erreur suivant: "'WshShell' est indéfini"

---

C'est bon, j'ai trouvé. Sous IE, il faut faire:

Code:

---

new ActiveXObject("WScript.Shell").SpecialFolders("APPDATA")

---

Pour assurer la compabilité avec IE et tous les autres navigateurs, il faut donc faire:

Code:

---

1 2 3 4 5 6 7 8

if(navigator.userAgent.indexOf("MSIE")){ //IE var appdata = new ActiveXObject("WScript.Shell").SpecialFolders("APPDATA"); } else{ //Les autres navigateurs dim WshShell Set WshShell = CreateObject("WScript.Shell") var appdata = WshShell.ExpandEnvironmentStrings("%APPDATA%"); }

---

Heureux pour toi d'avoir trouvé

Mais il aurait été bon de préciser que tu travaillais avec JavaScript et pas avec VBScript

Quand j'ai demandé ma question, je ne connaissais pas VBScript. Quand je l'ai découvert, je me suis rendu compte que j'ai fait une bêtise:oops:. Mais c'est pas grave, maintenant on peut voir ici comment faire ça avec Javascript aussi:D.