1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| option explicit
' Permet d'écrire la variable "var" dans un fichier (temp.txt)
Dim var, launch, fso, fichier, folder ,f ,WshShell
Dim strChemin
' var : valeur à récupérer
' launch : permet de lancer le bat
' fso : permet de créer un objet de type FileSystemObject
' f : contient information sur le fichier (lecture,ecriture)
' folder : nom du dossier
' Lit le contenu d'un fichier dans une variable
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile("C:\Users\P8z77vPro-PC\Desktop\temp1.txt", ForReading)
'strChemin = f.ReadAll
strChemin = Trim(f.ReadLine)
f.Close
' Verification
rem wscript.echo strChemin
REM If strChemin = "m:\logiciels" Then
REM wscript.echo "Ok pour " & strChemin
REM Else
REM wscript.echo "No Ok pour " & strChemin
REM End if
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Folder=Fso.GetFolder(strChemin)
'WScript.Echo Folder.Size
var = Folder.Size
'Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fichier = fso.OpenTextFile("C:\Users\P8z77vPro-PC\Desktop\temp.txt", ForWriting,true)
fichier.write("" &var)
fichier.close()
'wscript.echo var |
Partager