Erreur 800A0046 avec taille de dossier

Bonjour,
J'ai un script qui fonctionne pour tous les sous-dossiers et qui ne fonctionne pas pour les répertoires racines.
J'ai le message d'erreur suivant :

Ligne 36
Erreur Permission refusée
Code 800A0046

Code:

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

Merci d'avance pour votre aide