asp循環(huán)刪除文件夾內(nèi)的文件

asp循環(huán)刪除文件夾內(nèi)的文件2009-04-0714:45在網(wǎng)上(ldxyiran)找的例子，測試可以用，順便擴(kuò)展了一下，刪除指定類型的文件下面的例子是批量刪除當(dāng)前文件夾下的所有的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'學(xué)了就要用，呵呵這個是FSO取得文件擴(kuò)展名的函數(shù)

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文件夾已經(jīng)刪除"SetFso=Nothing/****************************************************************************************詳細(xì)參數(shù)說明：Setfso=Server.CreateObject("Scripting.FileSystemObject")

讓我們先來看看有什么屬性與函數(shù)可用，后面會對部分函數(shù)做些小例子

方法或者屬性描述

BuildPath()生成一個文件路徑

CopyFile()復(fù)制文件

CopyFolder()復(fù)制目錄

CreateFolder()創(chuàng)建新目錄

CreateTextFile()生成一個文件

DeleteFile()刪除一個文件

DeleteFolder()刪除一個目錄

DriveExists()檢驗(yàn)盤符是否存在

Drives返回盤符的集合

FileExists()檢驗(yàn)文件是否存在

FolderExists檢驗(yàn)一個目錄是否存在

GetAbsolutePathName()取得一個文件的絕對路徑

GetBaseName()取得文件名

GetDrive()取得盤符名

GetDriveName()取得盤符名

GetExtensionName()取得文件的后綴

GetFile()生成文件對象

GetFileName()取得文件名

GetFolder()取得目錄對象

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

GetSpecialFolder()取得特殊的目錄名

GetTempName()生成一個臨時文件對象

MoveFile()移動文件

MoveFolder()移動目錄

OpenTextFile()

打開一個文件流實(shí)例說明BuildPath(路徑,文件名)//這個方法會對給定的路徑加上文件，并自動加上分界符

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

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

alert(newpath);

-->

</SCRIPT>CopyFile(源文件,目標(biāo)文件,覆蓋)//復(fù)制源文件到目標(biāo)文件，當(dāng)覆蓋值為true時，如果目標(biāo)文件存在會把文件覆蓋

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

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

-->

</SCRIPT>CopyFolder(對象目錄,目標(biāo)目錄,覆蓋)//復(fù)制對象目錄到目標(biāo)目錄，當(dāng)覆蓋為true時，如果目標(biāo)目錄存在會把文件覆蓋

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

fso.CopyFolder("c:\\WINDOWS\\Desktop","d:\\");//把C盤的Desktop目錄復(fù)制到D盤的根目錄

-->

</SCRIPT>CreateFolder(目錄名)//創(chuàng)建一個新的目錄

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

varnewFolderName=fso.CreateFolder("c:\\51JS");//在C盤上創(chuàng)建一個51JS的目錄

-->

</SCRIPT>CreateTextFile(文件名,覆蓋)//創(chuàng)建一個新的文件，如果此文件已經(jīng)存在，你需要把覆蓋值定為true

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

varnewFileObject=fso.CreateTextFile("c:\\autoexec51JS.bat",true);//腳本將在C盤創(chuàng)建一個叫autoexec51JS.bat的文件

-->

</SCRIPT>DeleteFile(文件名,只讀？)//刪除一個文件，如果文件的屬性是只讀的話，你需要把只讀值設(shè)為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(文件名,只讀？)//刪除一個目錄，如果目錄的屬性是只讀的話，你需要把只讀值設(shè)為true

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

fso.CopyFolder("c:\\WINDOWS\\Desktop","d:\\");//為了安全我先把你C盤的Desktop目錄復(fù)制到你D盤的根目錄

fso.DeleteFolder("c:\\WINDOWS\\Desktop",true);//把你的Desktop目錄刪除，但因?yàn)閐esktop是系統(tǒng)的東西，所以不能全部刪除，但.........

-->

</SCRIPT>DriveExists(盤符)//檢查一個盤是否存在，如果存在就返會真，不存在就返回.......

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObject("Scripting.FileSystemObject");

hasDriveD=fso.DriveExists("d");//檢查系統(tǒng)是否有D盤存在

hasDriveZ=fso.DriveExists("z");//檢查系統(tǒng)是否有Z盤存在

if(hasDriveD)alert("你的系統(tǒng)內(nèi)有一個D盤");

if(!hasDriveZ)alert("你的系統(tǒng)內(nèi)沒有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("按下確定后系統(tǒng)的字庫將被刪除！");//開個玩笑:)

-->

</SCRIPT>GetAbsolutePathName(文件對象)//返回文件對象在系統(tǒng)的絕對路徑

<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(目錄代碼)//取得系統(tǒng)中一些特別的目錄的路徑，目錄代碼有3個分別是0:安裝Window的目錄1:系統(tǒng)文件目錄2:臨時文件目錄

<SCRIPTLANGUAGE="JavaScript">

<!--

varfso=newActiveXObj