Hallo,
unter WinXP mit IE8 funktioniert ja folgender Code (als *.hta) ganz gut,
aber wie kann ich ihn nach Windows 7 portieren ?
Stundenlanges googeln hat mir nur Code gezeigt den ich in JavaScript
nicht zum laufen bekomme... (z.b. hier :
http://www.eggheadcafe.com/software/aspnet/35812129/browse-for-file-dialog-.aspx
)
Vermutlich muss ich mir meine eigene Dialogbox mit dem FSO basteln ?
1 | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
2 | <html><head>
|
3 | <hta:application id="hta" applicationname="XP Demo"
|
4 | caption="yes" contextmenu="yes"
|
5 | innerborder="no"
|
6 | navigable="yes" scroll="no"
|
7 | scrollflat="yes" selection="yes"
|
8 | singleinstance="no"
|
9 | sysmenu="yes"
|
10 | windowState="normal" >
|
11 |
|
12 | <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
|
13 | <title>XP Demo</title>
|
14 | <script type="text/javascript">
|
15 | <!--
|
16 |
|
17 | var path = "C:\\";
|
18 |
|
19 | function OnLoad()
|
20 | { var xx=1200;
|
21 | var yy=600;
|
22 | try { window.resizeTo(xx,yy);} catch(err){}
|
23 | try { window.moveTo(screen.width - xx, 0);} catch(err){}
|
24 | }
|
25 |
|
26 | function load_OnClick()
|
27 | { var oCD = new ActiveXObject("UserAccounts.CommonDialog");
|
28 | oCD.Filter = "All|*.*;";
|
29 | oCD.FilterIndex = 1;
|
30 | oCD.InitialDir = path;
|
31 | if (oCD.ShowOpen())
|
32 | { path=oCD.Filename;
|
33 | result.innerHTML="<b>"+path+"</b>";
|
34 | }
|
35 | }
|
36 |
|
37 | //-->
|
38 | </script>
|
39 |
|
40 | </head>
|
41 | <body bgcolor="#ECE9D8" OnLoad='OnLoad();' >
|
42 | <form name="tofForm">
|
43 | <table>
|
44 | <tr><td><input name="load" type="BUTTON" value="load" onclick="load_OnClick();"></td></tr>
|
45 | </table>
|
46 |
|
47 | <div id="result">test</div>
|
48 |
|
49 | </form>
|
50 | </body>
|
51 | </html>
|