Probleme avec un lien hypertexte

**papyxy** · 11/09/2018, 11h26

Bonjour
Lorsque j' exécute ce prog. HTA, au lieu d' ouvrir mon fichier, c' est l' explorer qui s' ouvre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
<a href="file://C:/Users/olix/Desktop/Document.Txt" target='_blank'>
Mon lien</a>

**hackoofr** · 11/09/2018, 12h02

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<html>
<head>
<title>Ouvrir un document avec HTA</title>
<HTA:APPLICATION
     SINGLEINSTANCE="yes"
     WINDOWSTATE="maximize"
>
</head>
<SCRIPT Language="vbscript">
Sub Execute(File)
 Dim ws
 Set ws = CreateObject("wscript.shell")
 ws.run chr(34) & File & chr(34)
End sub
</SCRIPT>
<body>
<h1>Ouvrir ce document</h1>
<a href="#" onClick="Call Execute('%userprofile%\Desktop\Document.txt')">Mon Document texte</a>
</body>
</html>

Inspiré par ici

**papyxy** · 11/09/2018, 13h06

Merci pour cette solution.

Probleme avec un lien hypertexte

VBScript

Discussions similaires

Partager

Partager