Ouvrir un Fichier

Question

Bonjour &#224; Tous....

J'aimerais savoir comment est-il possible d'ouvrir un fichier en tapant dans un text box le nom du fichier et que le prog (Internet Explorer) s'ouvre automatiquement. En d'autre mots, je tappe dans le textbox Test.htm et ca va ouvrir Internet Explorer et je vais etre dans mon fichier test.htm.

J'ai trouv&#233; l'information pour ouvrir un fichier mais je ne veux pas vois la fenetre (ex. quand on fait Fichier Ouvrir). Je veux passer directement &#224; mon fichier que je tape dans mon text box.

Merci &#224; l'avance de votre aide

P.S. Je suis d&#233;butant en VB

ShareVB · Answer

salut,

regarde les sources concernant l'api ShellExecute...

ShareVB

cs_Warning · Answer

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



Const SW_SHOWNORMAL = 1



Private 
Sub Form_Load()


ShellExecute(
Me.hwnd, vbNullString, App.Path & "" & text1.Text, vbNullString, "", SW_SHOWNORMAL)



End 
Sub


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_JeffC1977 · Answer

Salut...  Merci de m'avoir &#233;crit cette ligne de 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



Const SW_SHOWNORMAL = 1



Private 
Sub Form_Load()


ShellExecute(
Me.hwnd, vbNullString, App.Path & "" & text1.Text, vbNullString, "", SW_SHOWNORMAL)



End 
Sub

J'avais lu dans un livre ce code mais ca ne fonctionne pas. Donc j'ai un bug avec les variables utilis&#233;. En d'autre mots, je ne sais pas quoi fait quoi. Qu'est ce que je dois changer pour le faire fonctionner avec mon programme si mon fichier se retrouve dans m:\jeff\ et que mon text box se nomme txtContrat ???
Ca doit ressembler &#224; ca ?
ShellExecute(Me.hwnd, vbNullString, App.Path & "" & txtContrat.Text, vbNullString, "", SW_SHOWNORMAL)

Pour le App.Path, est ce que je laisse comme ca ou bien je dois changer quelque chose pour qu'il retrouve l'emplacement du fichier ???

J'attends de tes nouvelles

Merci de ton aide

cs_Warning · Answer

ShellExecute(Me.hwnd, vbNullString, "m:\jeff" & txtContrat.Text & ".cpc", vbNullString, "", SW_SHOWNORMAL).


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Ouvrir un Fichier

4 réponses

Discussions similaires