ASP怎样判断一个文件夹是否为空.当该文件为空的时候删除该文件夹.当不为空的时候发出提示.
'服务器要支持 FileSystemObject,一个简单的例子。asp的详细的文件夹和文件操作,请参考' http://www.xfbbs.com/Book/VBScript/vbscript_1/html/jsFSOTutor.htm Function DeleteFolder(FolderPath) Dim S Dim SubFolders Dim SubFolder Dim Files Dim Msg Dim Folder Msg = "" Set FSO = CreateObject("Scripting.FileSystemObject") '有个验证路径是否存在。 Set Folder = FSO.GetFolder(FolderPath) Set Files = Folder.Files If Files.Count>0 Then Msg="有文件 " End If Set SubFolders = Folder.SubFolders If SubFolders.Count>0 Then Msg = Msg & "有文件夹" End If If(Msg ="") then FSO.DeleteFolder(Folder) End IF End IfEnd Function
温馨提示:答案为网友推荐,仅供参考
第1个回答 2014-08-12
asp利用fso控件显示某文件夹中的所有内容 FSO(FileSystemObject)是微软ASP的一个对文件操作的控件,该控件可以对服务器进行读取、新建、修改、删除目录以及文件的操作。是ASP编程中非常有用的一个控件。今天就谈谈asp利用fso控件显示某文件夹中的所有内容的方法吧: <% '创建一个FileSystemObject对象的事例 Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") path=server.mappath("./folder") '当前目录下folder文件夹目录 '创建一个Folder对象 Set MyFolder=MyFileObject.GetFolder(path) For Each thing in MyFolder.SubFolders '获取子文件夹 response.write "<p>目录:"&thing ' MyFileObject.DeleteFolder thing 删除文件夹,注意使用 next '循环显示其中文件 For Each thing in MyFolder.Files Response.Write("<p>文件:"&thing) '输出文件路径 'MyFileObject.DeleteFile thing '删除这些文件,此删除不可以恢复,需要小心使用 Next %>