OVH Cloud OVH Cloud

Fichier texte

3 réponses
Avatar
[aicfr]
Bonjour,

voila deux petites questions:

- Comment peut on supprimer un fichier(texte ici), lorsqu'on appui sur
un bouton ?
- Comment peut on ouvrir un fichier texte, cad le lire avec
l'application notpad, à partir d'un bouton ?

merci
Cordialement,
aicfr

3 réponses

Avatar
Eric
"[aicfr]" écrivait
news:c94bpb$3j3$:

Bonjour,

voila deux petites questions:

- Comment peut on supprimer un fichier(texte ici), lorsqu'on appui
sur
un bouton ?
- Comment peut on ouvrir un fichier texte, cad le lire avec
l'application notpad, à partir d'un bouton ?

merci
Cordialement,
aicfr






Bonjour,
Pour supprimer un fichier, j'utiliserai la commande Kill suivi du nom du
fichier (chemin complet).

Pour lire ton fichier .txt avec Notepad, je ferai un shell du genre
Dim Id
Id=shell("c:WindowsNotepad.Exe MonFichier.txt,1) Prévoir aussi le chemin
du fichier à lire

Donc à mettre sur l'evènement click des boutons correspondants.

A+
Eric
Avatar
[aicfr]
Ok, merci bien pour votre aide


"Eric" a écrit dans le message de
news:
"[aicfr]" écrivait
news:c94bpb$3j3$:

> Bonjour,
>
> voila deux petites questions:
>
> - Comment peut on supprimer un fichier(texte ici), lorsqu'on appui
> sur
> un bouton ?
> - Comment peut on ouvrir un fichier texte, cad le lire avec
> l'application notpad, à partir d'un bouton ?
>
> merci
> Cordialement,
> aicfr
>
>
>

Bonjour,
Pour supprimer un fichier, j'utiliserai la commande Kill suivi du nom du
fichier (chemin complet).

Pour lire ton fichier .txt avec Notepad, je ferai un shell du genre
Dim Id
Id=shell("c:WindowsNotepad.Exe MonFichier.txt,1) Prévoir aussi le chemin
du fichier à lire

Donc à mettre sur l'evènement click des boutons correspondants.

A+
Eric


Avatar
ng
Salut,

Id=shell("c:WindowsNotepad.Exe MonFichier.txt,1)


Ce n'est pas tjrs c:windows ! Mais comme notepad est ds un répertoire du
%path%, ca marche ainsi :

Dim lRet as long
lRet = Shell("notepad",vbNormalFocus)

Sinon si le nom du fichier contient des espaces, ne pas oublier les
guillemets.

Dim lRet as long, strChemin as String

lRet = Shell("notepad """ & strChemin & """",vbNormalFocus)

D'une manière génaral, on utiliserait plutot ShellExecute() pour ouvrir un
document. En effet il l'ouvrira auto. avec l'appli adéquat.

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/


"Eric" a écrit dans le message de
news:
"[aicfr]" écrivait
news:c94bpb$3j3$:

> Bonjour,
>
> voila deux petites questions:
>
> - Comment peut on supprimer un fichier(texte ici), lorsqu'on appui
> sur
> un bouton ?
> - Comment peut on ouvrir un fichier texte, cad le lire avec
> l'application notpad, à partir d'un bouton ?
>
> merci
> Cordialement,
> aicfr
>
>
>

Bonjour,
Pour supprimer un fichier, j'utiliserai la commande Kill suivi du nom du
fichier (chemin complet).

Pour lire ton fichier .txt avec Notepad, je ferai un shell du genre
Dim Id
Id=shell("c:WindowsNotepad.Exe MonFichier.txt,1) Prévoir aussi le chemin
du fichier à lire

Donc à mettre sur l'evènement click des boutons correspondants.

A+
Eric