OVH Cloud OVH Cloud

[Debutant] Ouvrir 2 fichiers de suite

3 réponses
Avatar
Marc
Bonjour,

je cherche a ouvrir deux fichiers de suites (1 Input et un autre Output)

J'ai essaye d'obtenir des pointeurs grace a la fonction FreeFile() mais il
m'affecte la mm valeur aux pointeurs de fichier

Code concerne:
Dim fOutputNum As Integer
Dim fBmpInputNum As Integer

' Get the next file number available for use
fOutputNum = FreeFile()
fBmpInputNum = FreeFile()

Open pOutputFile For Output As #fOutputNum
Open pBmpInputFile For Binary As #fBmpInputNum

D'avance merci pour votre aide

Marc

3 réponses

Avatar
Denis P
Bonjour Marc,

Essaies de cette façon :

fOutputNum = FreeFile
Open pOutputFile For Output As #fOutputNum
fBmpInputNum = FreeFile
Open pBmpInputFile For Binary As #fBmpInputNum

De cette façon tu ouvres ton premier fichier, donc tu lui affectes ton
premier pointeur. Ensuite maintenant tu redéfinis ton deuxième pointeur.
Si tu vas voir la définition de la fonction FreeFile sur MSDN tu obtins ceci
:
Renvoie une valeur de type integer représentant le prochain numéro de ficher
pouvant être utilisé par l'instruction Open.

Donc tant et aussi longtemps que tu n'auras pas ouvert de fichier, FreeFile
te retournera toujours la même valeur, puisque le pointeur n'est pas occupé
tant que tu n'as pas ouvert le fichier.

Salut

Denis P

"Marc" <fun.x@#nospam#caramail.com> a écrit dans le message de
news:3f950849$0$10428$
Bonjour,

je cherche a ouvrir deux fichiers de suites (1 Input et un autre Output)

J'ai essaye d'obtenir des pointeurs grace a la fonction FreeFile() mais il
m'affecte la mm valeur aux pointeurs de fichier

Code concerne:
Dim fOutputNum As Integer
Dim fBmpInputNum As Integer

' Get the next file number available for use
fOutputNum = FreeFile()
fBmpInputNum = FreeFile()

Open pOutputFile For Output As #fOutputNum
Open pBmpInputFile For Binary As #fBmpInputNum

D'avance merci pour votre aide

Marc




Avatar
Marc
Thx

"Denis P" wrote in message
news:
Bonjour Marc,

Essaies de cette façon :

fOutputNum = FreeFile
Open pOutputFile For Output As #fOutputNum
fBmpInputNum = FreeFile
Open pBmpInputFile For Binary As #fBmpInputNum

De cette façon tu ouvres ton premier fichier, donc tu lui affectes ton
premier pointeur. Ensuite maintenant tu redéfinis ton deuxième pointeur.
Si tu vas voir la définition de la fonction FreeFile sur MSDN tu obtins


ceci
:
Renvoie une valeur de type integer représentant le prochain numéro de


ficher
pouvant être utilisé par l'instruction Open.

Donc tant et aussi longtemps que tu n'auras pas ouvert de fichier,


FreeFile
te retournera toujours la même valeur, puisque le pointeur n'est pas


occupé
tant que tu n'as pas ouvert le fichier.

Salut

Denis P

"Marc" <fun.x@#nospam#caramail.com> a écrit dans le message de
news:3f950849$0$10428$
> Bonjour,
>
> je cherche a ouvrir deux fichiers de suites (1 Input et un autre Output)
>
> J'ai essaye d'obtenir des pointeurs grace a la fonction FreeFile() mais


il
> m'affecte la mm valeur aux pointeurs de fichier
>
> Code concerne:
> Dim fOutputNum As Integer
> Dim fBmpInputNum As Integer
>
> ' Get the next file number available for use
> fOutputNum = FreeFile()
> fBmpInputNum = FreeFile()
>
> Open pOutputFile For Output As #fOutputNum
> Open pBmpInputFile For Binary As #fBmpInputNum
>
> D'avance merci pour votre aide
>
> Marc
>
>




Avatar
Armel Déré
Salut,

Je penses que serai plutôt comme ça :

Dim fOutputNum As Integer
Dim fBmpInputNum As Integer

' Get the next file number available for use
fOutputNum = FreeFile()
Open pOutputFile For Output As #fOutputNum

fBmpInputNum = FreeFile()
Open pBmpInputFile For Binary As #fBmpInputNum


"Marc" <fun.x@#nospam#caramail.com> a écrit dans le message de news:
3f950849$0$10428$
Bonjour,

je cherche a ouvrir deux fichiers de suites (1 Input et un autre Output)

J'ai essaye d'obtenir des pointeurs grace a la fonction FreeFile() mais il
m'affecte la mm valeur aux pointeurs de fichier

Code concerne:
Dim fOutputNum As Integer
Dim fBmpInputNum As Integer

' Get the next file number available for use
fOutputNum = FreeFile()
fBmpInputNum = FreeFile()

Open pOutputFile For Output As #fOutputNum
Open pBmpInputFile For Binary As #fBmpInputNum

D'avance merci pour votre aide

Marc