Shell

Marsh Posté le 11-01-2004 à 14:37:12

Private Sub Command1_Click()

Call Shell(" C:\essai.txt ", 1)

End Sub

voila sa ne marche vraiment pas
ou est l'erreur et pourriez vous me donner le bon code svp

Marsh Posté le 11-01-2004 à 14:37:12

Marsh Posté le 11-01-2004 à 17:33:18

Pas étonnant !
La fonction Shell sert à lancer un exécutable.

==> call shell("c:\windows\notepad.exe c:\essai.txt",1) : lance l'éditeur notepad qui ouvre le fichier essai.txt.

Marsh Posté le 12-01-2004 à 01:23:48

Si tu souhaites ouvrir ton .txt avec l'éxécutable associé :

Code :

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
Private Sub Form_Load()
Call ShellExecute(0, "open", "d:\temp\prout.txt", vbNull, vbNull, vbNormalFocus)
End Sub

Marsh Posté le 12-01-2004 à 23:33:34

Private Sub Form_Load()
Call ShellExecute(0, "open", "d:\temp\prout.txt", vbNull, vbNull, vbNormalFocus)
End Sub

Ca donne precedure sub ou fonction non definie

Marsh Posté le 13-01-2004 à 02:02:01

1 - Ouvre les yeux*,
2 - il faut* que le fichier "prout.txt" existe dans le meme répertoire.

* astuce : Private Declare ...
* astuce : tu peux aussi changer le chemin

Message édité par karlkox le 13-01-2004 à 02:02:32

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *