Recherche d'un fichier dans une fenetre hta

Version imprimable

17/04/2012, 15h51
1MrchB

Recherche d'un fichier dans une fenetre hta

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

Citation:

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

:salut: voici un exemple de BrowseForFile.vbs

Code:

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"

17/04/2012, 16h18
ProgElecT

Salut

Code:

<INPUT Type="file">

il y a un exemple ICI (Merci bbil)
17/04/2012, 17h27
1MrchB

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?
11/05/2012, 08h45
1MrchB
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:

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