Ouvrir fichier txt [Résolu]

Signaler
Messages postés
15
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
12 février 2005
-
Messages postés
15
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
12 février 2005
-
bonjour
j aimerais ouvrir 1 fichier txt directement avec le bloc note ou wordpad

en cliquant sur un chekbox

merci et bonne annee a tous

6 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
102
Utilise la fonction Shell en passant en paramètre le chemin de notepad ou wordpad suivi du nom du fichier txt.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
173
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
13 octobre 2007

hhhp2004

salut,

je ne comprends pas DARKSIDIOUS, la fonction shell a juste 2 parametres: le chemin du programme a etre executé et le type de feneitre quon veut que le programme a lors de l'execution .... je ne vois pas ou on pourrait mettre le chemin du fichier a ouvrir avec notepad...... pourrais tu donner un exemple SVP

voici ce que jai fait

const cheminProg as string = "c:\windows\notepad.exe"
const cheminFichierTxt as string = "c:\unfichier.txt"

if dir(cheminFichierTxt) <> "" then
shell cheminProg, vbnormalfocus
end if

ou je pourrai mettre le cheminFichierTxt pour que notepad ouvre le fichier txt ?

merci
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
102
Ah, tu n'as pas l'habitude des lignes de commandes, voilà tout : il faut concaténer le nom de l'éxécutable avec le fichier à ouvrir en les séparant d'un espace :

Private Sub Form_Load()

Const cheminProg As String = "c:\windows\notepad.exe"
Const cheminFichierTxt As String = "c:\unfichier.txt"

If Dir(cheminFichierTxt) <> "" Then
Shell cheminProg & " " & cheminFichierTxt, vbNormalFocus

End If

End Sub

_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
173
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
13 octobre 2007

hhhp2004

merci beaucoup DARKSIDIOUS
Messages postés
15
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
12 février 2005

mer ci a tous les deux mes les deux methode ouvre un fichier.txt
sans titre
Messages postés
15
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
12 février 2005

ok tous et rentres dans l ordre merci merci beaucoup

bonne annee a vous deux