Open App.pathRésolu

Question

Bonjour,
J' aimerais dans  la ligne open app.path ouvrir un fichier, le nom de ce fichier est fournit par textserie.text
Merci
-------------------------------------------------------------------------------------------
List1.Clear          'listbox
Dim tmp As String
Dim monnumero As String
monnumero$ = Textserie.Text
Open App.Path & "\Logs" & monnumero For Input As 1    'ouvre le fichier
Do Until EOF(1)
Line Input #1, tmp  
List1.AddItem tmp                'Ajoute la ligne dans la listbox
Loop
Close #1
---------------------------------------------------------------------------------------------
Paul

appolofrance

cs_casy · Accepted Answer

Est-ce que ta textbox contient bien "12345678.txt" ou au contraire ne contient-elle que "12345678" (ce qui semblrait plus logique pour des numéro de série ????

Dans le second cas, il faudra modifier la ligne suivante

monnumero$ = App.Path & "\Logs" & Textserie.Text & ".txt"

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

Ok, yes, and ............. What is the problem ?????

Le code semble correct.
Aucune info n'est fournie sur un éventuel problème ou message d'erreur ou autre.
Aucune question n'est posée.

Que pouvons-nous pour toi, alors?

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Utilisateur anonyme · Answer

Vive le copier coller.
Bon serieusement, appolofrance, c'est quoi que tu veux fair ?
Kenji

Il ?tait une fois, un pauvre petit r?glement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait tellement plaisir ainsi qu'a nous. Merci.
Ca sent le sondage sur ce lien

appolofrance · Answer

C'est dans la ligne open app.path que j' ai un probleme il me met erreur "fichier non trouvé". Merci

paul



appolofrance

Utilisateur anonyme · Answer

Ben que veut tu qu'on te dise ? Le fichier n'existe pas. Vérifie qu'il existe bien dans le répertoire Logs de ton application.
As tu aussi l'extension de ce ficher dans ton Textserie.Text ?


Kenji

cs_casy · Answer

"Aucune info n'est fournie sur un éventuel problème ou message d'erreur
ou autre" --> "j' ai un probleme il me met erreur "fichier non
trouvé""   On y est arrivé, c'est l'info qu'il manquait depuis le début 

Vérifie aussi que App.Path ne te met pas de "" comme dernier caractère dans le chemin.
Ca arrive des fois suivant les OS. Si c'est le cas tu te retrouverais avec 2 "" qui se suive dans le nom du fichier et c'est pas bon.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

appolofrance · Answer

j' ai winxp et j' utilise VB6. J' ai enlevé le "" comme dernier caractère, 
Idem "Fichier introuvable". 
Avez vous d 'autres suggestions ? Merci
paul

appolofrance

cs_casy · Answer

Modifie ton code ainsi :

monnumero$ = App.Path & "\Logs" & Textserie.Text
Open monnumero For Input As 1    'ouvre le fichier

puis met un point d'arret sur l'instruction open; et regarde la valeur de ta variable monnumero.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

appolofrance · Answer

monnumero$ = App.Path & "\Logs" & Textserie.Text
Open monnumero For Input As 1    'ouvre le fichier


J' ai repris ces lignes mais
Lorsque je remplace textserie.text par un nom de fichier situé dans le dossier "Logs" sa fonctionne je n' ais pas le message "erreur 53, fichier introuvable".

J' ai enlevé le "" comme dernier caractère, Idem.

Merci
paul

appolofrance

cs_casy · Answer

Heu..... ta dernière réponse me met un doute.

Est-on bien d'accord ? Textserie est une textbox que tu as placée sur ta feuille. Lors de l'exécution, tu es scensé saisir dans cette textbox, un nom de fichier valide dans le répertoire logs. Ensuite seulement, tu appelle ton bout de code (par un bouton surrement).

Que ton code fonctionne lorsque tu remplace Textserie.text par le nom d'un fichier, ne m'étonne pas puisque pour moi ton code est bon. Mais en gardant Textserie, et en saisissant ce même nom dans la textbox lors de l'exécution, est-ce que ça marche ?????

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

appolofrance · Answer

Textserie est une textbox  placée sur une feuille, 
cette textbox à des numeros de serie générés par une base de donnée (ado), je visionne ces numeros un par un avec le bouton "movenext"

J' ai un dossier nommé "Logs" avec des fichiers txt à l'interieur, les noms de fichiers sont identiques.

Je souhaite ouvrir le fichier correspondant à ma textbox.

Code du Bouton

Private Sub Cmdlog_Click()
Frmlog.List1.Clear 
Dim tmp As String 
Dim monnumero As String 
monnumero$ = App.Path & "\Logs" & Textserie.Text' le pointeur s 'arrete ligne suivante... et lorsque je remplace par 12345678.txt sa marche
Open monnumero For Input As 1    
Do Until EOF(1) 
Line Input #1, tmp 
Frmlog.List1.AddItem tmp
Loop
Close #1


Frmlog.Show
End Sub


Il me semblait avoir un code correct mais cette "erreur 53, fichier introuvable" est franchement pénible. 

Merci pour l' aide
paul



appolofrance

appolofrance · Answer

Tant d 'heures pour 3 lettres ces durs ...


Merci Casy


paul

appolofrance

Utilisateur anonyme · Answer

Surtout que c'est ce que je t'avais demmander à mon dernier post si tu avais bien l'extension du fichier dans ta TextBox.



Kenji

cs_casy · Answer

Ben ouais, mais à question mal posée, réponse dure à obtenir.

Tu nous aurais donner dès le départ l'information que tu m'as donner, il y a quelque minutes, on aurait vu de suite la faille.

Tu
le sauras pour tes prochaines questions. Plus les questions sont
précises et détaillées, plus les réponses ont des chances d'être
pertinentes. 


Bonne prog à toi.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Open App.path

14 réponses

Votre réponse

Discussions similaires