<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication1._Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<script type="text/javascript" >
function searchFiles(){
var fso,f,fc,s;
fso = new ActiveXObject("Scripting.FileSystemObject"); alert ("1");
f = fso.GetFolder(document.all.fixfolder.value);
fc = new Enumerator(f.files);
n =""
//以下内容是显示文件名
for (; !fc.atEnd(); fc.moveNext())
{
n=fso.Getfilename(fc.item ());
document.write(n+"<br>");
;
}
}
</script>
</head>
<body bgcolor="#FFFFFF">
<input type="text" name="fixfolder" value ="C:\Documents and Settings\Administrator\桌面\r1171(backups)\BodyGraph" / > //此处可更改默认文件路径
<input type="button" value ="搜索" οnclick="searchFiles()" / >
</body>
</html>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<script type="text/javascript" >
function searchFiles(){
var fso,f,fc,s;
fso = new ActiveXObject("Scripting.FileSystemObject"); alert ("1");
f = fso.GetFolder(document.all.fixfolder.value);
fc = new Enumerator(f.files);
n =""
//以下内容是显示文件名
for (; !fc.atEnd(); fc.moveNext())
{
n=fso.Getfilename(fc.item ());
document.write(n+"<br>");
;
}
}
</script>
</head>
<body bgcolor="#FFFFFF">
<input type="text" name="fixfolder" value ="C:\Documents and Settings\Administrator\桌面\r1171(backups)\BodyGraph" / > //此处可更改默认文件路径
<input type="button" value ="搜索" οnclick="searchFiles()" / >
</body>
</html>
PS: 这个程序原版本来源于网络,原先只显示全部路径,本人更改为只显示文件名称。感谢原作者。(原作者不详哈 :-D)
ActiveX 是IE的专利。 此代码在IE或者其他装有ActiveX插件的浏览器上可运行,并且需要调低安全级别。