[VB]Erreur: Function must return variant

Version imprimable

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:

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

16/02/2006, 11h12
jmfmarques

Citation:

SizeOfProfile(myuser)

renvoie une valeur et n'en reçoit pas ainsi
16/02/2006, 11h17
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???
16/02/2006, 11h23
Empty_body

J'ai essayé comme ceci :

Code:

SizeOfProfile = MonProfile.Size - LocalSettings.Size

J'ai plus d'erreur à la compilation... Mais lors de l'exécution, ça plante...
16/02/2006, 11h31
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?
16/02/2006, 11h34
Empty_body

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

Salut Empty_body

Je viens de tester ce code et c'est ok

Code:

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

Code:

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

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

Code:

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

16/02/2006, 11h53
Megaxel

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

Code:

Set GnaGnaGna = Nothing

comme l'a dit Bouley, pour libérer la mémoire.
16/02/2006, 12h23
Empty_body

ok... merci encore...