Discussion :

[Empty_body]

Salut, ma fonction s'exécute maintenant correctement mais j'aimerais que le résultat ne s'affiche pas à l'écran mais dans un fichier texte... J'ai un petit problème avec la ligne :

Open nomfich For Binary As #1
qui apparaît en surbrillance... Quelqu'un peut me dire ce que c'est???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim NomUtilisateur As String
Dim Taille As Long
NomUtilisateur = Environ("USERNAME")
Dim fso, MonProfile, msg, LocalSettings, nomfich
Set fso = CreateObject("Scripting.FileSystemObject")
Set MonProfile = fso.GetFolder("C:\Documents and Settings\" & NomUtilisateur)
Set LocalSettings = fso.GetFolder("C:\Documents and Settings\" & NomUtilisateur & "\Local Settings")
Taille = MonProfile.Size - LocalSettings.Size
msg = UCase(MonProfile.Name) & " utilise " & Taille & " Octets"
nomfich = "C:\" & UCase(MonProfile.Name) & ".txt"
Dim Contenu As String
Open nomfich For Binary As #1
Contenu = "Taille du profile : "
Put #1, 1, Contenu
Contenu = vbCrLf
Put #1, 1, Contenu
Contenu = msg
Put #1, 1, Contenu
Close #1
End Sub

[SfJ5Rpw8]

et toujours la même question
Et c'est quoi le message d'erreur ?

[Empty_body]

Oups, c'est vrai que j'aurai dû mettre le message : " Run-time error'75': Path/File access error "

[SfJ5Rpw8]

et en faisant :

Code :

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

Put #1, 1, Contenu

le 2° 1 représente l'endroit ou tu ecrit dans le fichier ... donc tu écrit toujours au même endroit pour tes 3 put...à la limite ne met rien ... l'écriture ce fera en fin de fichier... mais bon pour créer un fichier texte on utilise pas le mode binary mais Output

[Empty_body]

J'ai trouvé, le pblm est pas lié au vb mais au fait que le disque est protégé en écriture à la racine...

[Empty_body]

Merci quand même...

[méphistopheles]

d'apres le message d'erreur, ça vient plutot d'un acces concurent...

sinon, ne l'ouvre pas as #1 mais fait :

Code :

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

1
2
3
4
5
6
dim f as integer
f=freefile
Open nomfich For Binary As #f
Contenu = "Taille du profile : "  & vbcrlf & msg
Put #f, 1, Contenu 
Close #f

[SfJ5Rpw8]

d'apres le message d'erreur, ça vient plutot d'un acces concurent...

sinon, ne l'ouvre pas as #1 mais fait :

Code :

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

1
2
3
4
5
6
dim f as integer
f=freefile
Open nomfich For Binary As #1f
Contenu = "Taille du profile : "  & vbcrlf & msg
Put #f, 1, Contenu 
Close #1

alors méphistopheles tu l'ouvre comment ton fichier avec

#1
#1F
#f

?

[méphistopheles]

oups!
étourderie...

j'ai édité.

[Empty_body]

J'ai changé de répertoire... Maintenant tout fonctionne au petit poil... A un détail prêt, j'aimerais que la fenêtre se ferme tout seule à la fin de l'exécution du prog...