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