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...