Recherche d'un fichier dans une fenetre hta

**1MrchB** · 17/04/2012, 15h51

Bonjour,

J'aimerai, depuis une fenêtre hta, rechercher un fichier quelconque dans l'arborescence de mon disque. Je connais bien la commande "BrowseForFolder" qui pourrait aller mais je ne connais pas l'équivalent pour les fichiers.

Merci

**hackoofr** · 17/04/2012, 16h11

Envoyé par 1MrchB

Bonjour,
J'aimerai, depuis une fenêtre hta, rechercher un fichier quelconque dans l'arborescence de mon disque. Je connais bien la commande "BrowseForFolder" qui pourrait aller mais je ne connais pas l'équivalent pour les fichiers.
Merci

voici un exemple de BrowseForFile.vbs

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
21
22
23
24
25
26
27
28
29
30
31
Function BrowseForFile()
 Dim shell : Set shell = CreateObject("WScript.Shell")
 Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
 Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
 Dim tempName : tempName = fso.GetTempName()
 Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
 tempFile.Write _
 "<html>" & _
 "    <head>" & _
 "        <title>Browse</title>" & _
 "    </head>" & _
 "    <body>" & _
 "        <input type='file' id='f'>" & _
 "        <script type='text/javascript'>" & _
 "            var f = document.getElementById('f');" & _
 "            f.click();" & _
 "            var shell = new ActiveXObject('WScript.Shell');" & _
 "            shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
 "            window.close();" & _
 "        </script>" & _
 "    </body>" & _
 "</html>"
 tempFile.Close
 
 shell.Run tempFolder & "\" & tempName & ".hta", 1, True
 
 BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
 shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function
 
MsgBox BrowseForFile,64,"BrowseForFile"

**ProgElecT** · 17/04/2012, 16h18

Salut

Code :

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

<INPUT Type="file">

il y a un exemple ICI (Merci bbil)

**1MrchB** · 17/04/2012, 17h27

Merci pour cette réponse, c'est effectivement la commande dont j'avais besoin. Dernière chose, est il possible de paramétrer le dossier par défaut?

**1MrchB** · 11/05/2012, 08h45

Comment effacer le champ une fois le fichier chargé?

La commande inFichier.value = "" ne semble pas fonctionner dans le Sub. Y a t il une parade à ça?

Code :

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

1
2
3
4
5
6
7
 
Sub ChoixFichier
	msgbox inFichier.value
end sub
 
 
<INPUT TYPE="file" NAME="inFichier" SIZE="30" onChange="choixfichier">

Recherche d'un fichier dans une fenetre hta

VBScript

Discussions similaires

Partager

Partager