[HTA sans fichier .hta] Sélectionner un fichier

[omen999]

bonjour,
toujours selon la même technique du HTA sans fichier mais beaucoup plus simple que le précédent,
un exemple pratique d'ouverture du dialogue de sélection d'un fichier
il ne nécessite aucun composant et son principal intérêt est de fonctionner aussi bien sous w2k que sous seven.
le répertoire par défaut est le dernier ouvert par le script
les pointilleux pourront même y ajouter la gestion de ce répertoire sachant qu'il figure dans
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\LastVisitedMRU\"
et qu'il existe un moyen de maj la valeur de clé correspondante

Code :

1
2
3
4
Function GetFileNameDlg()
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).WriteLine(f.value):close()</script>""").StdOut.ReadAll
End Function
MsgBox GetFileNameDlg()