[VBS ]aide avec fso.opentextfile Résolu/Fermé

Question

Bonjour,  

voila j'ai cette commande qui me pause problème dans mon scripte vbs 

set fichier = fso.Opentextfile("nom.txt")  


en faite je cherche a mettre un nom automatiser en fonction de l'utilisateur ou ça me donnerais au rendu un fichier texte au nom de l'utilisateur en faite je cherche à rentré la variable d'environnement %username% 

Pour au final me donner: 

%username%.txt 

voila mon script : 

Const ForReading = 1, ForWriting = 2, ForAppend=8 

Dim fso,Nom_utilisateur 


Set WshNetwork = CreateObject("WScript.Network" ) 
set script=CreateObject("WScript.Shell" ) 
Set fso = CreateObject("Scripting.FileSystemObject") 

    
Nom_utilisateur = WshNetwork.UserName 

Set fichier = fso.OpenTextFile("C:\Users\lucile\Desktop\mozilla.txt", ForWriting, True) 


mozilla = script.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\MaintenanceService\Installed") 

if mozilla=1 then  

 fichier.write ("mozilla " & username) 

end if 

pouvez vous m'aider svp merci 


Configuration: Windows 7 / Firefox 12.0

Utilisateur anonyme · Answer

Bonjour, 

Quelque chose comme : 


Nom_utilisateur = WshNetwork.UserName  

Nom_Fichier = "C:\Users\" & Nom_Utilisateur & "\Desktop\mozilla.txt" 

If ( fso.FileExists(Nom_Fichier) ) Then 
    Set objFichier = fso.OpenTextFile(Nom_Fichier ,ForWriting, True)  
Else 
    Set objFichier = fso.CreateTextFile(Nom_Fichier ,ForWriting, True)  
End If 


Cdt 

Lupin

adininfo · Answer

merci

[VBS ]aide avec fso.opentextfile

2 réponses

Discussions similaires