[VB]Mettre un variable.size dans un entier...

Version imprimable

Bonjour, j'aimerais savoir ce qui cloche dans mon code... La ligne mise en surbrillance par le compilateur est celle-ci :
Taille = MonProfile.Size - LocalSettings.Size

Si quelqu'un peut m'aider... Je débute le vb...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim NomUtilisateur As String
Dim Taille As Long
NomUtilisateur = Environ("USERNAME")
Dim fso, MonProfile, s, LocalSettings
Set fso = CreateObject("Scripting.FileSystemObject")
Set MonProfile = fso.GetFolder("C:\Documents and Settings\" & NomUtilisateur)
Set LocalSettings = fso.GetFolder("C:\Documents and Settings\" & LocalSettings & "\Local Settings")
Taille = MonProfile.Size - LocalSettings.Size
s = UCase(MonProfile.Name) & " utilise " & Taille & " Octets"
MsgBox s
End Sub

06/02/2006, 10h04
SfJ5Rpw8

c'est quoi le message..? tu est sur de la ligne en surbrillance... parce que celle la me semble bizarre:

Code:

Set LocalSettings = fso.GetFolder("C:\Documents and Settings\" & LocalSettings & "\Local Settings")

tu utilise localSettings pour définir LocalSettings alors que LocalSettings n'as pas étè initialisé ..! (lol)
06/02/2006, 10h11
Empty_body

Local Settings avec l'espace est le nom du répertoire sous windows... LocalSettings sans espace est mon nom de variable pour récupérer les infos relative à son contenu. Tout comme MonProfile récupère les infos du profile de l'utilisateur. Je ne pense donc pas que l'erreur soit là car je peux afficher l'un comme l'autre... (MonProfile.name ou MonProfil.size affiche des valeurs. Idem pour LocalSettings.size...)
06/02/2006, 10h13
Empty_body

:oops: Mea culpa... Tu as raison... J'ai foiré une ligne.. Et ça ne se répercutait que plus bas... Merci du coup de main...