Discussion :

[Empty_body]

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 :

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

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

[SfJ5Rpw8]

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

Code :

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

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)

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

[Empty_body]

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