OVH Cloud OVH Cloud

bug sur fso

1 réponse
Avatar
Spectre
Bonjour,


Bon, je sais, une fois de plus je ne suis pas sur le bon forum... mais comme
vous êtes les + forts!!!

Ce petit bout de code qui me sert à imprimer des commentaires sortis d'un
document Ms Visio Pro 2003 bug sur "Dim fso As New FileSystemObject"
commentaire " type défini par l'utilisateur non défini (on en profite pour
admirer le riche vocabulaire utilisé dans ce msg!).
FileSystemObject fait il référence à une bibliothèque particulière???? ou
qu'est ce qui peut bien clocher?

Ci- joint le bout de code en question.
Private Sub m_writeFile(sBlock As String)

'// Write the text file:
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisDocument.Path & "DocumentComments.txt",
ForWriting, True, TristateUseDefault)
Call f.Write(sBlock)
f.Close

End Sub


Merci d'avance et bye
Spectre

1 réponse

Avatar
Spectre
Bon, paresseux que je suis, j'ai quand même retrouvé le nom de la
libraiirie.

A bientôt.

"Spectre" a écrit dans le message de news:

Bonjour,


Bon, je sais, une fois de plus je ne suis pas sur le bon forum... mais
comme vous êtes les + forts!!!

Ce petit bout de code qui me sert à imprimer des commentaires sortis d'un
document Ms Visio Pro 2003 bug sur "Dim fso As New FileSystemObject"
commentaire " type défini par l'utilisateur non défini (on en profite pour
admirer le riche vocabulaire utilisé dans ce msg!).
FileSystemObject fait il référence à une bibliothèque particulière???? ou
qu'est ce qui peut bien clocher?

Ci- joint le bout de code en question.
Private Sub m_writeFile(sBlock As String)

'// Write the text file:
Dim fso As New FileSystemObject
Dim f As TextStream
Set f = fso.OpenTextFile(ThisDocument.Path & "DocumentComments.txt",
ForWriting, True, TristateUseDefault)
Call f.Write(sBlock)
f.Close

End Sub


Merci d'avance et bye
Spectre