Ouvrir un fichier . txt avec WordPad

Question

Bonjour
Par un clic sur un bouton, je voudrais ouvrir un document .txt avec Wordpad, le document étant situé dans le path de l’exécutable.
Pouvez-vous m'indiquer comment procéder de manière la plus simple possible car mes capacités techniques sont limitées.
Merci

fsltp · Answer

en vb6 mettre un code du genre

Private Sub Bouton_Click()
    Shell "C:\CHEMIN\wordpad.exe C:\DOSSIER\DOCAOUVRIR.csv", vbMaximizedFocus
End Sub

sur un bouton

PCPT · Answer

salut,
et voir ici pour lancer l'éditeur par défaut (donc excel là)
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Danielminou · Answer

Merci pour les message.


Effectivement le code de fsltp marche bien.
Ceci étant, je voudrais aller chercher le fichier FichText.txt dans le path de l’appli et là problème de syntaxe semble-t-il

Voici ce que j’ai essayé sous win98( l’emplacement étant différent sous XP):


Private Sub Command1_Click()
   Shell "c:\program files\accessoires\WordPad.exe (App.Path  &   "\FichText.txt"), vbMaximizedFocus
End Sub

Puis-je avoir une aide ? Merci

PCPT · Answer

faut essayer un peu quand même ^^

Shell "c:\program files\accessoires\WordPad.exe " & App.Path & "\FichText.txt", vbMaximizedFocus

PCPT · Answer

ps : perso je n'ai pas de dossier "accessoires" dans "program files" !!

seuls tes utilisateurs sous W9x l'auront
(à espérer encore que leur systeme soit sur C)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_JMO · Answer

Bonjour à tous,

Salut PCPT,
Je viens d'écrire un petit script pour "trouver" le pgm WordPad.exe (testé sous xp).

'Recherche de WordPad et ouverture .txt
'
Option Explicit
Const cFile = "WordPad"
Const cExt = "exe"
Const cFileTxt = "D:\Test JMO  .txt"
Const HARD_DISK = 3

If  SearchFile(cFile,cExt)  <> False Then
   Dim WshShell
   Set WshShell = WScript.CreateObject("WScript.Shell")
   WshShell.Exec (SearchFile(cFile,cExt) & Space(1) & """" & cFileTxt & """")
   Set WshShell = Nothing 
 Else
   MsgBox cFile & "." & cExt & " non trouvé"
End If

Function SearchFile(MonFichier,MonExtension)
Dim strComputer, objWMIService, colFiles, objFile
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where FileName='" & MonFichier & _
                    "' And Extension ='" &  MonExtension & "'") 

For Each objFile in colFiles
    SearchFile = objFile.Name 
    Set objWMIService = Nothing
    Set colFiles =  Nothing
    Exit Function
Next
Set objWMIService = Nothing
Set colFiles =  Nothing
SearchFile = False
End Function

jean-marc

cs_JMO · Answer

Re,

Je sors !!! mal testé ... 2 fois la fonction.

jean-marc

Danielminou · Answer

Merci PCPT, je retrouve bien mon fichier maintenant.
Mon problème est maintenant de rechercher Wordpad.exe pour l'exécuter.

Je suis amateur et j'ai utilisé les instructions les plus élémentaires de VB, le résultat n'est pas nul... mais je suis vite limité même en cherchant un peu partout.

Si qq peut m'aider pour localiser WordPad.exe en m'expliqua,t où je dois placer le code ça me rendrait bigrement service.

PCPT · Answer

rien de plus fiable que le registre...

je te laisse chercher dans les sources existantes pour voir comment y accéder

la clé que tu cherches est la suivante : 
HKEY_CLASSES_ROOT\Applications\wordpad.exe\shell\open\command

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Ouvrir un fichier . txt avec WordPad

9 réponses

Votre réponse

Discussions similaires