function PathList(path) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var fldr = fso.GetFolder(path);
var fd = new Enumerator(fldr.SubFolders);
for (; !fd.atEnd(); fd.moveNext()) {
sd = fd.item();
WScript.Echo(sd.path);
//寫入文件
writeFile("a.text",sd.path);
//document.write(sd.path);
PathList(sd.path);
}
}
function FileList(path) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var fldr = fso.GetFolder(path);
var fd = new Enumerator(fldr.SubFolders);
for (; !fd.atEnd(); fd.moveNext()) {
sd = fd.item();
var fc = new Enumerator(sd.files);
for (; !fc.atEnd(); fc.moveNext())
{
WScript.Echo(fc.item());
writeFile("B.text",fc.item());
}
WScript.Echo(sd.path);
//寫入文件
writeFile("a.text",sd.path);
//document.write(sd.path);
FileList(sd.path);
}
}
//當(dāng)前目錄文件
function CurFileList(path) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var fldr = fso.GetFolder(path);
var fc = new Enumerator(fldr.files);
for (; !fc.atEnd(); fc.moveNext())
{
WScript.Echo(fc.item());
writeFile("c.text",fc.item());
}
}
/*
object.OpenTextFile(filename[, iomode[, create[, format]]])
參數(shù)
object
必選項(xiàng)。object 應(yīng)為 FileSystemObject 的名稱。
filename
必選項(xiàng)。指明要打開文件的字符串表達(dá)式。
iomode
可選項(xiàng)?？梢允侨齻€(gè)常數(shù)之一：ForReading 、 ForWriting 或 ForAppending 。
create
可選項(xiàng)。Boolean 值，指明當(dāng)指定的 filename 不存在時(shí)是否創(chuàng)建新文件。如果創(chuàng)建新文件則值為 True ，如果不創(chuàng)建則為 False 。如果忽略，則不創(chuàng)建新文件。
format
可選項(xiàng)。使用三態(tài)值中的一個(gè)來指明打開文件的格式。如果忽略，那么文件將以 ASCII 格式打開。
設(shè)置
iomode 參數(shù)可以是下列設(shè)置中的任一種：
常數(shù) 值 描述
ForReading 1 以只讀方式打開文件。不能寫這個(gè)文件。
ForWriting 2 以寫方式打開文件
ForAppending 8 打開文件并從文件末尾開始寫。
format 參數(shù)可以是下列設(shè)置中的任一種：
值 描述
TristateTrue 以 Unicode 格式打開文件。
TristateFalse 以 ASCII 格式打開文件。
TristateUseDefault 使用系統(tǒng)默認(rèn)值打開文件。
*/
//讀文件
function readFile(filename){
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(filename,1);
var s = "";
while (!f.AtEndOfStream)
s += f.ReadLine()+"\n";
f.Close();
return s;
}
//寫文件
function writeFile(filename,filecontent){
var fso, f, s ;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.OpenTextFile(filename,8,true);
f.WriteLine(filecontent);
f.Close();
//alert('ok');
WScript.Echo("寫入成功");
}
//刪除文件
function deleteFile(filename,filecontent){
var fso, f, s ;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFile(filename);
f.Delete();
//alert('ok');
WScript.Echo("刪除成功");
}
//批量刪除，未刪除文件夾，刪除不了當(dāng)前目錄文件
function DelFileList(path) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var fldr = fso.GetFolder(path);
var fd = new Enumerator(fldr.SubFolders);
for (; !fd.atEnd(); fd.moveNext()) {
sd = fd.item();
var fc = new Enumerator(sd.files);
for (; !fc.atEnd(); fc.moveNext())
{
WScript.Echo(fc.item());
writeFile("B.text",fc.item());
fc.item().Delete();
WScript.Echo("刪除成功");
}
WScript.Echo(sd.path);
//寫入文件
writeFile("a.text",sd.path);
writeFile("a.text","刪除完畢");
//document.write(sd.path);
DelFileList(sd.path);
}
}

//刪除當(dāng)前目錄文件
function CurDelFileList(path) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
var fldr = fso.GetFolder(path);
var fc = new Enumerator(fldr.files);
for (; !fc.atEnd(); fc.moveNext())
{
WScript.Echo(fc.item());
writeFile("c.text",fc.item());
fc.item().Delete();
writeFile("c.text","刪除成功");
}
}
/*
Drive對(duì)象負(fù)責(zé)收集系統(tǒng)中的物理或邏輯驅(qū)動(dòng)器資源內(nèi)容，它具有如下屬性：
l TotalSize：以字節(jié)（byte）為單位計(jì)算的驅(qū)動(dòng)器大小。
l AvailableSpace或FreeSpace：以字節(jié)（byte）為單位計(jì)算的驅(qū)動(dòng)器可用空間。
l DriveLetter：驅(qū)動(dòng)器字母。
l DriveType：驅(qū)動(dòng)器類型，取值為：removable（移動(dòng)介質(zhì)）、fixed（固定介質(zhì)）、network（網(wǎng)絡(luò)資源）、CD-ROM或者RAM盤。
l SerialNumber：驅(qū)動(dòng)器的系列碼。
l FileSystem：所在驅(qū)動(dòng)器的文件系統(tǒng)類型，取值為FAT、FAT32和NTFS。
l IsReady：驅(qū)動(dòng)器是否可用。
l ShareName：共享名稱。
l VolumeName：卷標(biāo)名稱。
l Path和RootFolder：驅(qū)動(dòng)器的路徑或者根目錄名稱。
*/
function getDriveinfo()
{
var fso, drv, s ="";
fso = new ActiveXObject("Scripting.FileSystemObject");
drv = fso.GetDrive(fso.GetDriveName("c:\\"));
s += "Drive C:" + " - ";
s += drv.VolumeName + "\n";
s += "Total Space: " + drv.TotalSize / 1024;
s += " Kb" + "\n";
s += "Free Space: " + drv.FreeSpace / 1024;
s += " Kb" + "\n";
WScript.Echo(s);
}
CurFileList("D:\web_01");
FileList("D:\web_01");
getDriveinfo();