ouvrir un fichier texte a partir d'un bouton Command

Question

bonjour,
J'enregistre les donn&#233;es voulue dans un fichier texte mais pour consulter ce fichier je doit aller &#224; son emplacement c'est &#224; dire le bureau.
Je voudrai &#224; l'aide d'un bouton Command pouvoir ouvrir ce fichier sans aller le chercher &#224; son empla&#231;ement.
Merci

jpleroisse · Answer

Bonjour,

Tu places sur ta Form un CommandButton et un TextBox (propri&#233;t&#233; Multiligne &#224; True).



Private Sub Command1_Click()

 Dim fs, f

    Dim Content

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.OpenTextFile("C:\Mes documents\MonFichier.txt", 1, False, 0)

    Content = f.Readall

    

    f.Close

    Text1.Text = Content

    End Sub

'Tu remplaces C:\Mes documents\MonFichier.txt, par le chemin de ton fichier et son nom .txt



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

ScSami · Answer

Hum... en effet JP mais l&#224; tu ne r&#233;pond pas &#224; sa question qui est, je le rappel :
"Je voudrai &#224; l'aide d'un bouton Command pouvoir ouvrir ce fichier sans aller le chercher &#224; son empla&#231;ement."

H&#233;h&#233;, si on prends &#231;a &#224; la lettre, y'a aucun moyens si ce n'est la t&#233;l&#233;portation involontaire! Ca me fait d'ailleurs penser que Crosoft devrait quand m&#234;me nous l'inventer ce fameux contr&#244;le qui permet "de faire des choses sans les faire" comme beaucoup de gens demandent  

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Renfield · Answer

je crois pas que l'on parle de téléportation...
on parle simplement de lancer un fichier texte, sans avoir a aller manuellement sur le bureau, et double cliquer sur le fichier

utiliser pour cela l'API ShellExecute

ScSami · Answer

Holala, je vois qu'aujourd'hui tout le monde est terre &#224; terre!!! Quelle tristesse 
C'&#233;tait un petit , rien de plus...
Bon... vous z'avez gagn&#233;... j'men vais retrouver la froidure de mon bien trop s&#233;rieux Windows !

katsankat · Answer

Tu mets l' exe sur le bureau.

dans ce cas un open "fichier.txt" for input as #1
 fonctionne, lol.

katsankat · Answer

Tr&#232;ve de plaisanterie, windows dispose de variables d'environnement.

%USERPROFILE% ne devrait pas &#234;tre loin du bureau.

Ouvrir un fichier texte a partir d'un bouton Command

6 réponses

Discussions similaires