whichfile=Server.MapPath("abandonship.txt") ‘得到文件名 Set fso = CreateObject("Scripting.FileSystemObject") ‘定义fso对象 Set f1 = fso.CreateTextFile(whichfile,true) f1.Write ("This is a test.My Name is abandonship.") f1.Close Set f2 = fso.GetFile(whichfile) f2.move "F:\ASP\testdel\" Set f3 = fso.GetFile("F:\ASP\testdel\abandonship.txt") f3.delete