var fso,f1,fname,path
fso=new ActiveXObject("Scripting.FileSystemObject")
fname=path+fname// file name
f1=fso.CreateTextFile(fname,true)
fso=new ActiveXObject("Scripting.FileSystemObject")
fname=path+fname// file name
f1=fso.CreateTextFile(fname,true)
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<script language=vbscript>
Function ReplaceStr(Str,Str1,Str2)
ReplaceStr = Replace(Str,Str1,Str2)
End Function
</script>
<script language=javascript>
var oldSelect=null;
//var FileSystem = opener.Fso
try
{
var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
}
catch(e)
{
alert("您的浏览器安全级别太高,无法保存,请调整您的安全级别到低")
}
function setDir(dir)
{ var sTAG = window.event.srcElement;
//opener.form1.Path.value = dir; if(sTAG.tagName.toLowerCase()!="img")
{
//sTAG.bgColor="blue"
if(oldSelect!=null)
{
oldSelect.style.background="#FFFFFF"
}
sTAG.style.background="#FFFF00"
oldSelect = sTAG;
}
alert(dir)
}function test(tID,Dir,Level,Str)
{
setDir(Dir);
var Div = document.all(tID);
if(Div.style.display =="")
{
Div.style.display = "none"
if(tID.length>1)
{
var Img1 = document.all("Img1_" + tID);
var Img2 = document.all("Img2_" + tID);
Img2.src = "DirImages/cdir.gif";
if(Img1.src.lastIndexOf("minusl.gif")>=0)
{
Img1.src = "DirImages/plusl.gif"
}
else
{
Img1.src = "DirImages/plus.gif"
} }
}
else
{
if(Div.innerHTML!="")
{
Div.style.display =""
if(tID.length>1)
{
var Img1 = document.all("Img1_" + tID);
var Img2 = document.all("Img2_" + tID);
Img2.src = "DirImages/odir.gif";
if(Img1.src.lastIndexOf("plusl.gif")>=0)
{
Img1.src = "DirImages/minusl.gif"
}
else
{
Img1.src = "DirImages/minus.gif"
}
}
}
else
{
var DirStr = GetDir(Dir,Level,Str)
if(DirStr!="")
{
Div.style.display =""
if(tID.length>1)
{
var Img1 = document.all("Img1_" + tID);
var Img2 = document.all("Img2_" + tID);
Img2.src = "DirImages/odir.gif";
//alert(Img1.src)
if(Img1.src.lastIndexOf("plusl.gif")>=0)
{
Img1.src = "DirImages/minusl.gif"
}
else
{
Img1.src = "DirImages/minus.gif"
}
}
Div.innerHTML = DirStr
}
else
{
var Img1 = document.all("Img1_" + tID);
var Img2 = document.all("Img2_" + tID);
Img2.src = "DirImages/odir.gif";
//alert(Img1.src)
if(Img1.src.lastIndexOf("plusl.gif")>=0)
{
Img1.src = "DirImages/minusl.gif"
}
else
{
Img1.src = "DirImages/minus.gif"
}
}
}
}
}
function GetDir(Dir,Level,Str)
{
//var plus = "<IMG SRC=plus.gif WIDTH=16 Border=0>"
//var plusl = "<IMG SRC=plusl.gif WIDTH=16 Border=0>"
var line = "<IMG SRC=DirImages/line.gif WIDTH=16 Border=0>"
var space = "<IMG SRC=DirImages/space.gif WIDTH=16 Border=0>"
//var cdir = "<IMG SRC=cdir.gif WIDTH=16 Border=0>"
var FunF,FunFolders
var s="";
var tempStr
try
{
FunF = FileSystem.GetFolder(Dir)
FunFolders = new Enumerator(FunF.SubFolders); var count=0
for(; !FunFolders.atEnd();FunFolders.moveNext())
{
count += 1 }
FunFolders.moveFirst()
var i = 0
for(; !FunFolders.atEnd();FunFolders.moveNext())
{
var path = ReplaceStr(FunFolders.item(),":","")
path = ReplaceStr(path,"\\","_")
path = ReplaceStr(path," ","_")
path = ReplaceStr(path,".","_")
var L = parseInt(Level)+1
var dir = FunFolders.item()
dir = ReplaceStr(dir,"\\","\\\\")
s += "<table border='0' cellspacing='0' cellpadding='0'>"
s += "<tr>"
s += "<td>"
i += 1
if(i==count)
{
tempStr = Str + space
s += Str + "<IMG style=cursor:Hand SRC=DirImages/plusl.gif WIDTH=16 Border=0 id=Img1_" + path + " onclick='javascript:test(\""+path +"\",\"" + dir +"\"," + L +",\"" +tempStr + "\")'>" + "<IMG SRC=DirImages/cdir.gif WIDTH=16 Border=0 id=Img2_" + path + ">"
}
else
{
tempStr = Str + line
s += Str + "<IMG style=cursor:Hand SRC=DirImages/plus.gif WIDTH=16 Border=0 id=Img1_" + path + " onclick='javascript:test(\""+path +"\",\"" + dir +"\"," + L +",\"" +tempStr + "\")'>" + "<IMG SRC=DirImages/cdir.gif WIDTH=16 Border=0 id=Img2_" + path + ">"
}
s += "</td>"
s += "<td>" s += " <a href='#' onclick='javascript:test(\""+path +"\",\"" + dir +"\"," + L +",\"" +tempStr + "\")'><FONT FACE='宋体' SIZE=2>" + FunFolders.item().Name +"</FONT></a>"
s += "</td>"
s += "</tr>"
s += "</table>"
s += "<Div id=" + path +" style='display:None'></Div>"
}
}
catch(e)
{
}
return s
}
function GetDrive()
{
var Drives,Drive,s,Name,f,Folders
Drives = new Enumerator(FileSystem.Drives);
s = "";
for (; !Drives.atEnd(); Drives.moveNext())
{
Drive = Drives.item();
if (Drive.DriveType == 3)
{
Name = Drive.ShareName;
}
else if (Drive.IsReady)
{
Name = Drive.VolumeName;
}
else
{
Name = "[软驱]";
}
document.write("<table border='0' cellspacing='0' cellpadding='0'><tr><td><IMG SRC='DirImages/fdisk.gif' style=cursor:Hand WIDTH=16 onclick='javascript:test(\"" + Drive.DriveLetter + "\",\"" + Drive.DriveLetter + ":\\\\\"," + 0 + ",\"\")'></td><td> <a href=# onclick='javascript:test(\"" + Drive.DriveLetter + "\",\"" + Drive.DriveLetter + ":\\\\\"," + 0 + ",\"\")'><FONT FACE='宋体' SIZE=2>" + Name + "(" + Drive.DriveLetter + ":)</FONT></a></td></tr></table>")
document.write("<Div id=" + Drive.DriveLetter +" style='display:None'></Div>")
}
}
GetDrive()
</script>
</body>
</html>