Non vraiment je pige pas le souci... Dsl...
On sait que pour mettre ce que la fenetre Dos affiche dans un fichier il suffit de faire ">chemin du fichier"
Donc meme un set, "Set >C:\toto.txt" te met bien ton set dans un fichier texte, derriere tu le lis, tu recuperes le contenu et tu detruis le fichier...
Code :
- Set shl = CreateObject("wscript.shell" )
- strTxt = "cmd /K Set >C:\toto.txt"
- shl.Run strTxt, 0
- Open "C:\toto.txt" For Input Access Read As 1
- Do While Not EOF(1)
- Line Input #1, Texte
- Texte2 = Texte2 & Chr(13) & Chr(10) & Texte
- Loop
- Close #1
- MsgBox Texte2
-
- 'Soit un kill pour du vba
- Kill "C:\toto.txt"
- 'Soit ca
- Set objFSO = CreateObject("Scripting.FileSystemObject" )
- objFSO.deletefile "C:\toto.txt", True
- Set objFSO = Nothing
|
Message édité par SuppotDeSaTante le 02-07-2010 à 14:15:05
---------------
Soyez malin, louez entre voisins !