Discussion :

[Empty_body]

Salut,
J'aimerais créer une fonction qui retourne un entier long pour calculer la taille du profile d'un utilisateur. Je pensais que ce code fonctionnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function SizeOfProfile(myuser As String) As Long
Dim fso, MonProfile, LocalSettings
Dim dossier As String
dossier = "C:\Documents and Settings\"
Set MonProfile = fso.GetFolder(dossier & myuser)
Set LocalSettings = fso.GetFolder(dossier & myuser & "\Local Settings")
SizeOfProfile(myuser) = MonProfile.Size - LocalSettings.Size
End Function

Mais ça me sort le message d'erreur suivant :
Compile error : Function on left-hand side of assignment must return variant or object
La ligne en cause semble être la ligne SizeOfProfile(myuser) = MonProfile.Size - LocalSettings
Quelqu'un sait me dire pourquoi??? Et comment régler le problème... Merci...

[jmfmarques]

SizeOfProfile(myuser)

renvoie une valeur et n'en reçoit pas ainsi

[Empty_body]

Je vais sans doute te paraître un peu boulet sur les bords mais je débute... Comment puis-je régler le problème???

[Empty_body]

J'ai essayé comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SizeOfProfile = MonProfile.Size - LocalSettings.Size

J'ai plus d'erreur à la compilation... Mais lors de l'exécution, ça plante...

[Megaxel]

Et tu as quoi, cette fois, comme message d'erreur?
Si tu fais les deux ".Size" séparément, ça marche?
Et est-ce que tu récupères bien les deux tailles des répertoires?

[Empty_body]

C'est un fait, c'est au niveau de la récupération des répertoires que ça part en vrille... Merci...

[bouley]

Salut Empty_body

Je viens de tester ce code et c'est ok

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
resultat = SizeOfProfile("xxxx")
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function SizeOfProfile(myuser As String) As Long
Dim fso As FileSystemObject
Dim MonProfile, LocalSettings As Folder
Dim dossier As String
 
Set fso = New FileSystemObject
dossier = "C:\Documents and Settings\"
Set MonProfile = fso.GetFolder(dossier & myuser)
Set LocalSettings = fso.GetFolder(dossier & myuser & "\Local Settings")
 
SizeOfProfile = LocalSettings.Size - MonProfile.Size
 
Set MonProfile = Nothing
Set LocalSettings = Nothing
Set fso = Nothing
 
End Function

@+

[Empty_body]

J'ai trouvé mon erreur, un oubli stupide... Voici le code corrigé pour le cas où il pourrait servir à qqn d'autre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function SizeOfProfile(myuser As String) As Long
Dim fso, MonProfile, LocalSettings
Dim dossier As String
Set fso = CreateObject("Scripting.FileSystemObject")
dossier = "C:\Documents and Settings\" & myuser
Set MonProfile = fso.GetFolder(dossier)
dossier = dossier & "\Local Settings"
Set LocalSettings = fso.GetFolder(dossier)
SizeOfProfile = MonProfile.Size - LocalSettings.Size
End Function

[Megaxel]

Arg! Je n'avais pas vu qu'il manquait le "CreateObject"
Cependant, si tu veux faire du code bien propre, rajoute les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set GnaGnaGna = Nothing

comme l'a dit Bouley, pour libérer la mémoire.

[Empty_body]

ok... merci encore...