菜鸟求救，在线等!
在ASP中要删除指定的文件夹或文件？最好有原程序!请各位大侠多多指教!! 问题点数：20、回复次数：6Top
1 楼tdl982324（最爱宝宝的笨熊）回复于 2002-09-18 10:05:13 得分 5
<%
set FsoObject=Server.CreateObject("Scripting.FileSystemObject")
FsoObject.DeleteFolder("c:\1")
FsoObject.DeleteFile("c:\1.txt")
set FsoObject=nothing
%>
以下是Fso对象
FileSystemObject对象
此对象提供对文件系统的访问功能，它有一名为Drives的属性，是包含Drive对象的集，每个Drive对象包含文件系统中驱动器的信息。下表列出了此对象常用的方法。
方法
描述
CopyFile(file1, file2, overwrite)
将file1拷贝到file2，file1中可以使用通配符。Overwrite参数可选，它说明是否覆盖已存在的file2，若设为false，不覆盖；否则覆盖
CopyFolder(folder1, folder2,
overwrite)
将folder1拷贝到folder2，overwrite参数的作用同上
CreateFolder(foldername)
新建一个名为foldername的目录，若此目录已存在，就会产生一个运行错误
CreateTextFile(filename, overwrite)
新建一个名为filename的文本文件，并返回此文件的TextStream对象。Overwrite参数同上
DeleteFile(filename, flag)
删除文件filename，可以使用通配符。Flag参数可选，它说明是否删除只读文件，若设为true就删除，否则不删除。若找不到filename，会产生一个运行错误
DeleteFolder(foldername, flag)
删除目录foldername，其余同上
DriveExists(drivename)
若drivename存在返回true，否则返回false
FileExists(filename)
若filename存在返回true，否则返回false
FolderExists(foldername)
若foldername存在返回true，否则返回false
GetAbsolutePathName (
relativepathname)
返回与relativepathname对应的全路径名
GetBaseName(path)
返回path的base名
GetDrive(drivename)
返回drivename指定的驱动器的Drive对象
GetDriveName(path)
返回path的驱动器名
GetExtensionName(path)
返回path的扩展名
GetFile(filepath)
返回filepath指定的文件的File对象
GetFileName(filepath)
返回filepath指定的文件的名字
GetFolder(folderpath)
返回folderpath指定的目录的Folder对象
GetParentFolderName(folderpath)
返回folderpath指定的目录的父目录的名字
GetSpecialFolder(id)
为指定的目录返回一个Folder对象，参数id指明了使用哪一个目录。0为windows目录，其中包含了操作系统文件；1为system目录，其中包含了库、字体和驱动程序；2为存储临时文件的目录，它由TMP环境变量指定
GetTempName()
返回临时文件的名字
MoveFile(file1, file2)
将file1移动到file2，可以在file1中使用通配符。注意：若file1只指定了一个文件而file2指向一个已存在的文件或路径，则会产生一个运行错误
MoveFolder(folder1, folder2)
将folder1移动到folder2，其余同上
OpenTextFile(filename, mode, create, format)
打开名为filename的文件，并返回TextStream对象，其余三个参数可选，若mode=1，则文件以只读方式打开；若mode=8，文件以添加方式打开；若create=true，则文件在不存在时也会打开。Format参数指定文件的格式，值-2、-1和0分别对应系统缺省格Top
2 楼awaysrain（绝对零度)(既然选择了远方就要日夜前行）回复于 2002-09-18 10:06:32 得分 0
用FSOTop
3 楼awaysrain（绝对零度)(既然选择了远方就要日夜前行）回复于 2002-09-18 10:08:28 得分 5
<%
dim sql
dim rs
path=request("path")
file=request("file")
set rs=server.createobject("adodb.recordset")
sql="delete from article where newsid="&request("ID")
rs.open sql,conn,1,1
rs.close
set rs=nothing
conn.close
set conn=nothing
FiLePaTh = Server.MapPath(".")& "\" & path& "\" &file
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filepath)
Set fso = nothing
response.redirect "mymanage.asp"
%>Top
4 楼seafarer777（手拿胡萝卜就敢装托塔李天王）回复于 2002-09-18 10:08:28 得分 5
这是 fbj007(宝宝)以前贴过的，
下面的 VBScript 示例，在驱动器 C 的根目录中创建一个文本文件，向其中写一些信息，然后把它移动到 \tmp 目录中，并在 \temp 中做一个备份，最后把它们从两个目录中删掉。
要运行下面的示例，需要先在驱动器 C 的根目录中创建 \tmp 和 \temp 目录：
Sub ManipFiles
Dim fso, f1, f2, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
Response.Write "Writing file <br>"
' 写一行。
f1.Write ("This is a test.")
' 关闭文件。
f1.Close
Response.Write "Moving file to c:\tmp <br>"
' 获取 C 的根目录(C:\)中的文件的句柄。
Set f2 = fso.GetFile("c:\testfile.txt")
' 把文件移动到 \tmp 目录。
f2.Move ("c:\tmp\testfile.txt")
Response.Write "Copying file to c:\temp <br>"
' 把文件复制到 \temp 目录。
f2.Copy ("c:\temp\testfile.txt")
Response.Write "Deleting files <br>"
' 获得文件当前位置的句柄。
Set f2 = fso.GetFile("c:\tmp\testfile.txt")
Set f3 = fso.GetFile("c:\temp\testfile.txt")
' 删除文件。
f2.Delete
f3.Delete
Response.Write "All done!"
End Sub
下面的代码示范了在 JScript 中做同样的事：
function ManipFiles()
{
var fso, f1, f2, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.CreateTextFile("c:\\testfile.txt", true);
Response.Write("Writing file <br>");
// 写一行。
f1.Write("This is a test.");
// 关闭文件。
f1.Close();
Response.Write("Moving file to c:\\tmp <br>");
// 获取 C 的根目录(C:\)中的文件的句柄。
f2 = fso.GetFile("c:\\testfile.txt");
// 把文件移动到 \tmp 目录。
f2.Move ("c:\\tmp\\testfile.txt");
Response.Write("Copying file to c:\\temp <br>");
// 把文件复制到 \temp 目录。
f2.Copy ("c:\\temp\\testfile.txt");
Response.Write("Deleting files <br>");
// 获得文件当前位置的句柄。
f2 = fso.GetFile("c:\\tmp\\testfile.txt");
f3 = fso.GetFile("c:\\temp\\testfile.txt");
// 删除文件。
f2.Delete();
f3.Delete();
Response.Write("All done!");
}
Top
5 楼awaysrain（绝对零度)(既然选择了远方就要日夜前行）回复于 2002-09-18 10:11:00 得分 0
相关的语句
FiLePaTh = Server.MapPath(".")& "\" & path& "\" &file
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filepath)
Set fso = nothingTop
6 楼topfistcn（countryboy）回复于 2002-09-18 11:19:03 得分 5
我这里有一个完整的这种管理系统(在网上下的)，你要的话可以发给你
QQ：47165695
topfistcn@yahoo.com.cnTop
