用javascript不可能。
用FSO可以得到目录和文件名,但不能上传文件。
建议用专用的上传组件。
用FSO可以得到目录和文件名,但不能上传文件。
建议用专用的上传组件。
解决方案 »
- 想实现一个异步的功能
- document.all().nextSibling.nextSibling.childNodes[0]childNodes[2]的意思
- JS怎么统计页面中DIV标签ID包含abc的个数
- 页面刷新后 javascript的全局变量会变吗
- 删除选中复选框项
- 关于调用delphi写的控件的Pchar类型的参数问题
- 急救!!!弹出窗口问题,急救!!!
- <[高难度]>:如何在子窗口中调用父窗口中用prototype增加的方法?
- 有一个框架网页,A和B,B又新打开了一个新网页,这个网页又是一个框架网页,分别为C和D,现在我在父窗口B中要改变D的<form中的scr的值,
- 一个很实用的javascript函数,用来控制输入的数值
- 高分求教office xp菜单的例子~~~~~
- 怎样向TreeView添加数据?
Dim fso
Dim TabStop
Dim NewLine
NewLine = ""
TabStop = ""
Set fso = CreateObject("Scripting.FileSystemObject")Dim strRootDoc
Dim html
html= ""
getFolderList fso.GetFolder("d:\"),html,0document.write html
'¸ø³öÒ»¸öÎļþ¼Ð£¬ÁгöÆäϵÄËùÓÐÎļþ¼Ð
Function getFolderList(oFolder,html,n)
Dim a
Dim tmp
tmp=""
Dim i
Dim strRootPath
For i = 1 To n
tmp=tmp & " "
Next
html = html & "<div id=""mxh" & n & """>"
For Each a In oFolder.SubFolders
'html = html & "<div><img src=""DocTypeIcons/folder16.gif"" align=absmiddle> <a href='Javascript:void(null)'>" & a.Name & "</a></div>" & chr(13)
html = html & "<div>" & tmp & "<img src=""DocTypeIcons/folder16.gif"" align=absmiddle> <a href='Javascript:void(null)'>" & a.Name & "</a></div>" & chr(13) If a.SubFolders.Count>0 Then
getFolderList a,html,n+1
End If
Next
html = html & "</div>"
End Function</script>
Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
Dim html
html= ""
getFolderList fso.GetFolder("d:\"),html,0
document.write html
'¸ø³öÒ»¸öÎļþ¼Ð£¬ÁгöÆäϵÄËùÓÐÎļþ¼Ð
Function getFolderList(oFolder,html,n)
Dim a
Dim tmp
tmp=""
Dim i
For i = 1 To n
tmp=tmp & " "
Next
html = html & "<div id=""mxh" & n & """>"
For Each a In oFolder.SubFolders
Set f = fso.GetFolder(a.Path)
Set fc = f.Files
For each ff In fc
html = html & ff.Name & "<br>"
Next
If a.SubFolders.Count>0 Then
getFolderList a,html,n+1
End If
Next
html = html & "</div>"
End Function</script>