Discussion :

[djangoo]

Bonjour,

Alors voilà me voilà bien embêter je voudrais lire un fichier en .txt a partir d'un chemin se trouvant dans une textbox.

J'ai essayer cela :

Code :

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

1
2
3
Dim ofso, f
Ofso= createobject ("scripting.filesystemobject")
f= ofso.opentextfile(Mid(ficenter.text,1 len(ficenter.text)-4) & ".txt")

pour le chemin du fichier mais il m'affiche :

Exception de HRESULT : 0x800A0035(CTL_E_FILENOTFOUND)

alors quand on me met ça j'ai envie de dire : "que faire ???"

Merci de m'aider.

[cedric.menec]

Bonjour,

Je ne sais pas si t'as réussi à trouver ton erreur, mais au cas où, voici ma réponse.

Il manque une virgule après "1", mais je suppose que que l'erreur ne viens pas de là, l'erreur doit venir de ton copier / coller dans le forum ?

Sinon je pense que le plus simple est que tu vérifies ce que te renvoie la fonction Mid() avec un petit MsgBox ou un Trace ?

Enfin, je vais peut être dire une bêtise, mais il me semble que Mid() est un héritage VB 6.0. Préfère la fonction SubString() qui te permet de faire la même chose.

[Pol63]

y a trop de code vb6 dans ces 3 lignes
si tu fais reelement du vb.net il faut coder ca avec les bonnes classes et de manière plus rationnelle

déjà entrer le nom d'un fichier dans un textbox c'est étrange, y a des moyens d'ouvrir une fenetre qui permet de naviguer dans les fichiers

après avant d'ouvrir un fichier on peut tester qu'il existe

tout est là :
http://plasserre.developpez.com/cours/vb-net/