Problème avec Open

Question

Salut a tous :)
Quand j'écris ces lignes de codes (fichier existant biensur) :


Dim temp As String
Open "C:\exemple.doc" For Binary Access Write As #1
Get #1, , temp
Close #1


Le problème est que la variable temp reste toujours vide ("")
Quelqu'un pourrais m'aider, me conseiller ?
Merci ;o)

ICIoBRa

stacco · Answer

essai d'ouvrir ton fichier en mode random et non en binary
(sinon tu dois definir ton mode utilisateur car get ne lit pas les descripteurs)

regarde dans l'aide msdn a "get" c'est bien explique

stacco :o)

ICIoBRa · Answer

En fait c ce code la :


Open "C:\exemple.doc" For Binary Access Read As #1


j'ai éssayé ça :


Open "C:\exemple.doc" For Random Access Read As #1


Mais ça marche toujours pas, erreur 59 (Longueur d'enregistrement incorrect) en sélectionnant la ligne 


Get #1, , Temp


Tu serai d'où ça vient ?
Merci :o)

ICIoBRa

stacco · Answer

ton probleme vient de la :

Dim temp As String

il faut que tu mettes
Dim temp As String * X ou X est la longueur de ta chaine

puis tu changes ton open :
Open "C:\exemple.doc" For Binary As #1 Len = X
Get #1, , temp
Close #1

tiens moi au courant

stacco :o)

ICIoBRa · Answer

Dim X As Integer
X = 10000
Dim Temp As String * X
Open FileToSend For Binary Access Read As #1 Len = X


Il me sélectionne le X a la déclaration de la variable Temp et m'indique komme méssage d'erreur : "Constante requise"

J'ai éssayé 


Open FileToSend For Binary Access Read As #1 Len = 10000


Mais Temp est toujours vide...

ICIoBRa

ICIoBRa · Answer

Dim Temp As String * 1000
Open FileToSend For Binary Access Read As #1 Len = Len(Temp)


Voila jé mis ça et ça marche :) Merci 1000 fois pour ton aide c simpa :)
a+

ICIoBRa

stacco · Answer

oui il fallait pas mettre un X mais un chiffre a la place...
j'aurai du etre plus explicite

stacco :o)

Problème avec Open

6 réponses

Discussions similaires