asp循环删除文件夹内的文件

asp循环删除文件夹内的文件2009-04-0714:45在网上(ldxyiran)找的例子，测试可以用，顺便扩展了一下，删除指定类型的文件下面的例子是批量删除当前文件夹下的所有的excel文档（xls）/****************************************************************************************

setFso=createobject("Scripting.filesystemobject")

setfolder=fso.getfolder(Server.MapPath("./"))

Setfs=CreateObject("Scripting.FileSystemObject")

setfc=folder.files

response.write"<tableborder=0>"&vbcrlf

foreachfinfc

response.write"<tr>"&vbcrlf

response.write"<td>"&&"</td>"&vbcrlf

response.write"<td>"&f.size&"</td>"&vbcrlf

response.write"</tr>"

f_name=Server.MapPath()

'ifright(f_name,4)=".xls"then

用这个也可以

iffs.GetExtensionName(f)="xls"then'学了就要用，呵呵这个是FSO取得文件扩展名的函数

fs.DeleteFile(f_name)

response.write"<tr>"&vbcrlf

response.write"<td>删除成功</td>"&vbcrlf

response.write"<td></td>"&vbcrlf

response.write"</tr>"

next

response.write"</table>"endif

'fso.DeleteFolder(Server.MapPath("./admin"))

'response.write"<br>Admin文件夹已经删除"SetFso=Nothing/****************************************************************************************详细参数说明：Setfso=Server.CreateObject("Scripting.FileSystemObject")

让我们先来看看有什么属性与函数可用，后面会对部分函数做些小例子

方法或者属性描述

BuildPath()生成一个文件路径

CopyFile()复制文件

CopyFolder()复制目录

CreateFolder()创建新目录

CreateTextFile()生成一个文件

DeleteFile()删除一个文件

DeleteFolder()删除一个目录

DriveExists()检验盘符是否存在

Drives返回盘符的集合

FileExists()检验文件是否存在

FolderExists检验一个目录是否存在

GetAbsolutePathName()取得一个文件的绝对路径

GetBaseName()取得文件名

GetDrive()取得盘符名

GetDriveName()取得盘符名

GetExtensionName()取得文件的后缀

GetFile()生成文件对象

GetFileName()取得文件名

GetFolder()取得目录对象

GetParentFolderName取得文件或目录的父目录名

GetSpecialFolder()取得特殊的目录名

GetTempName()生成一个临时文件对象

MoveFile()移动文件

MoveFolder()移动目录

OpenTextFile()

打开一个文件流实例说明BuildPath(路径,文件名)//这个方法会对给定的路径加上文件，并自动加上分界符

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

varnewpath=fso.BuildPath("c:\\tmp","51js.txt");//生成c:\tmp\51js.txt的路径

alert(newpath);

-->

</SCRIPT>CopyFile(源文件,目标文件,覆盖)//复制源文件到目标文件，当覆盖值为true时，如果目标文件存在会把文件覆盖

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

varnewpath=fso.CopyFile("c:\\autoexec.bat","d:\\autoexec.bak");

-->

</SCRIPT>CopyFolder(对象目录,目标目录,覆盖)//复制对象目录到目标目录，当覆盖为true时，如果目标目录存在会把文件覆盖

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

fso.CopyFolder("c:\\WINDOWS\\Desktop","d:\\");//把C盘的Desktop目录复制到D盘的根目录

-->

</SCRIPT>CreateFolder(目录名)//创建一个新的目录

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

varnewFolderName=fso.CreateFolder("c:\\51JS");//在C盘上创建一个51JS的目录

-->

</SCRIPT>CreateTextFile(文件名,覆盖)//创建一个新的文件，如果此文件已经存在，你需要把覆盖值定为true

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

varnewFileObject=fso.CreateTextFile("c:\\autoexec51JS.bat",true);//脚本将在C盘创建一个叫autoexec51JS.bat的文件

-->

</SCRIPT>DeleteFile(文件名,只读？)//删除一个文件，如果文件的属性是只读的话，你需要把只读值设为true

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");//为了安全我先把要删除的autoexec.bat备份到你的D盘

varnewpath=fso.CopyFile("c:\\autoexec.bat","d:\\autoexec.bat");//把C盘的autoexec.bat文件删除掉

fso.DeleteFile("c:\\autoexec.bat",true);

-->

</SCRIPT>DeleteFolder(文件名,只读？)//删除一个目录，如果目录的属性是只读的话，你需要把只读值设为true

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

fso.CopyFolder("c:\\WINDOWS\\Desktop","d:\\");//为了安全我先把你C盘的Desktop目录复制到你D盘的根目录

fso.DeleteFolder("c:\\WINDOWS\\Desktop",true);//把你的Desktop目录删除，但因为desktop是系统的东西，所以不能全部删除，但.........

-->

</SCRIPT>DriveExists(盘符)//检查一个盘是否存在，如果存在就返会真，不存在就返回.......

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

hasDriveD=fso.DriveExists("d");//检查系统是否有D盘存在

hasDriveZ=fso.DriveExists("z");//检查系统是否有Z盘存在

if(hasDriveD)alert("你的系统内有一个D盘");

if(!hasDriveZ)alert("你的系统内没有Z盘");

-->

</SCRIPT>FileExists(文件名)//检查一个文件是否存在，如果存在就返会真，不存在就返回.......

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

fileName=fso.FileExists("c:\\autoexec.bat");

if(fileName)alert("你在C盘中有autoexec.bat文件，按下确定后这个文件将被删除！");//开个玩笑:)

-->

</SCRIPT>FolderExists(目录名)//检查一个目录是否存在，如果存在就返会真，不存在就返回.......

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

folderName=fso.FolderExists("c:\\WINDOWS\\Fonts");

if(folderName)alert("按下确定后系统的字库将被删除！");//开个玩笑:)

-->

</SCRIPT>GetAbsolutePathName(文件对象)//返回文件对象在系统的绝对路径

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

pathName=fso.GetAbsolutePathName("c:\\autoexec.bat");

alert(pathName);

-->

</SCRIPT>GetBaseName(文件对象)//返回文件对象的文件名

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

baseName=fso.GetBaseName("c:\\autoexec.bat");//取得autoexec.bat的文件名autoexec

alert(baseName);

-->

</SCRIPT>GetExtensionName(文件对象)//文件的后缀

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

exName=fso.GetExtensionName("c:\\autoexec.bat");//取得autoexec.bat后缀bat

alert(exName);

-->

</SCRIPT>GetParentFolderName(文件对象)//取得父级的目录名

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

parentName=fso.GetParentFolderName("c:\\autoexec.bat");//取得autoexec.bat的父级目录C盘

alert(parentName);

-->

</SCRIPT>GetSpecialFolder(目录代码)//取得系统中一些特别的目录的路径，目录代码有3个分别是0:安装Window的目录1:系统文件目录2:临时文件目录

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObj