Pb avec : Open "c:ReportlogXX.txt" For Output As #m_FileNumber
1 réponse
Georges
Bonsoir,
j'ai remonté du code pour justifier du texte. Tout marche bien sauf que le
code plante sur certaines machines du réseau et je ne comprends par pourquoi
car dans plusieurs cas j'ai la même configuration matérielle et logicielle.
La routine qui plante est la suivante :
Private Sub Class_Initialize()
' Get next Free File Number
m_FileNumber = FreeFile
' Allow for multiple instances of this Class
Open "c:\Reportlog" & m_FileNumber & ".txt" For Output As #m_FileNumber
End Sub
Apparement c'est la dernière ligne qui pourrait poser problème mais je ne
vois pas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gérard
Bonsoir,
J'aurais tendance à changer c: par Left(CurDir, 3).
Tu construis ton nom de fichier après avoir récupéré le numéro libre stNomFichier = Left(CurDir, 3) & "Reportlog" & m_FileNumber & ".txt"
Puis tu l'utilises. Open stNomFichier For Output As #m_FileNumber
On ne sait jamais. Dans tous les cas, tu n'es plus lié à la lettre du disque. Attention, si tu a utilisé ChDrive avant.
Gérard
"Georges" a écrit dans le message de news:
Bonsoir,
j'ai remonté du code pour justifier du texte. Tout marche bien sauf que le code plante sur certaines machines du réseau et je ne comprends par pourquoi car dans plusieurs cas j'ai la même configuration matérielle et logicielle. La routine qui plante est la suivante :
Private Sub Class_Initialize() ' Get next Free File Number m_FileNumber = FreeFile
' Allow for multiple instances of this Class Open "c:Reportlog" & m_FileNumber & ".txt" For Output As #m_FileNumber
End Sub
Apparement c'est la dernière ligne qui pourrait poser problème mais je ne vois pas.
Merci de vos lumières Georges
Bonsoir,
J'aurais tendance à changer c: par Left(CurDir, 3).
Tu construis ton nom de fichier après avoir récupéré le numéro libre
stNomFichier = Left(CurDir, 3) & "Reportlog" & m_FileNumber & ".txt"
Puis tu l'utilises.
Open stNomFichier For Output As #m_FileNumber
On ne sait jamais. Dans tous les cas, tu n'es plus lié à la lettre du
disque. Attention, si tu a utilisé ChDrive avant.
Gérard
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news: 53AE9B35-0F9D-4F08-BA2A-AC3B091600A8@microsoft.com...
Bonsoir,
j'ai remonté du code pour justifier du texte. Tout marche bien sauf que le
code plante sur certaines machines du réseau et je ne comprends par
pourquoi
car dans plusieurs cas j'ai la même configuration matérielle et
logicielle.
La routine qui plante est la suivante :
Private Sub Class_Initialize()
' Get next Free File Number
m_FileNumber = FreeFile
' Allow for multiple instances of this Class
Open "c:Reportlog" & m_FileNumber & ".txt" For Output As #m_FileNumber
End Sub
Apparement c'est la dernière ligne qui pourrait poser problème mais je ne
vois pas.
J'aurais tendance à changer c: par Left(CurDir, 3).
Tu construis ton nom de fichier après avoir récupéré le numéro libre stNomFichier = Left(CurDir, 3) & "Reportlog" & m_FileNumber & ".txt"
Puis tu l'utilises. Open stNomFichier For Output As #m_FileNumber
On ne sait jamais. Dans tous les cas, tu n'es plus lié à la lettre du disque. Attention, si tu a utilisé ChDrive avant.
Gérard
"Georges" a écrit dans le message de news:
Bonsoir,
j'ai remonté du code pour justifier du texte. Tout marche bien sauf que le code plante sur certaines machines du réseau et je ne comprends par pourquoi car dans plusieurs cas j'ai la même configuration matérielle et logicielle. La routine qui plante est la suivante :
Private Sub Class_Initialize() ' Get next Free File Number m_FileNumber = FreeFile
' Allow for multiple instances of this Class Open "c:Reportlog" & m_FileNumber & ".txt" For Output As #m_FileNumber
End Sub
Apparement c'est la dernière ligne qui pourrait poser problème mais je ne vois pas.
