先附bat创建畸形目录，以下代码复制另存为a.bat：
代码如下:
<BR />md aux\ <BR />md com1\ <BR />md com2\ <BR />md prn\ <BR />md con\ <BR />md nul\ <BR />md dot...\ <BR />md onedot..\ <BR /> <BR />程序代码 <BR /><span><U></U></span> 代码如下:<BR /><%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <BR /><% <BR />option explicit <BR />response.charset = "UTF-8" <BR />session.codepage = 65001 <BR />session.timeout = 1440 <BR />server.scripttimeout = 9999 <BR />'*************************** <BR />'名称：目录列表类 <BR />'作者：逸品 <BR />'日期：2010-4-28 <BR />'网址：www.51frw.cn <BR />'描述：目录列表类，支持畸形目录名 <BR />'*************************** <BR />Class FsoCls <BR />Private Fso <BR />Public FsoObj <BR />Private Sub Class_Initialize <BR />Set Fso=CreateObject("Scripting.FileSystemObject") <BR />Set FsoObj=Fso <BR />End Sub <BR />Private Sub Class_Terminate <BR />Set Fso=Nothing <BR />Set FsoObj=Nothing <BR />End Sub <BR />Function IsFolderExists(FolderPath) <BR />If fso.FolderExists(FolderPath) Then <BR />IsFolderExists = true <BR />Else <BR />IsFolderExists = false <BR />End If <BR />End Function <BR />Function FolderItem(ByVal FolderDir) <BR />If Instr(FolderDir,":")>0 Then <BR />FolderDir="\?"&FolderDir&"" <BR />Else <BR />FolderDir="\?"&Server.MapPath(FolderDir)&"" <BR />End If <BR />If IsFolderExists(FolderDir) = False Then <BR />FolderItem=False <BR />Exit Function <BR />End if <BR />Dim FolderObj,FolderList,F,i <BR />i=1 <BR />Set FolderObj=Fso.GetFolder(FolderDir) <BR />Set FolderList=FolderObj.SubFolders <BR />FolderItem="目录总数："&FolderObj.SubFolders.Count&"<hr>" & vbcrlf <BR />FolderItem=FolderItem&"文件总数："&FolderObj.Files.count&"<hr>" & vbcrlf <br /><br />For Each F In FolderList <BR />'Response.Write F.ShortName <BR />'Response.Write (instr(1,F.ShortName,"~",1)) <BR />If IsFolderExists(FolderDir&F.Name) = True Then Response.Write ("T<br>" & vbcrlf) <BR />If(instr(1,F.Name,".",0)>0) Then <BR />Response.Write ("T") <BR />F.Name=Replace(F.Name,".","-") <BR />End if <BR />FolderItem=FolderItem&i&"├─文件夹→"&F.Name&"<br>" & vbcrlf <BR />i=i+1 <BR />Next <BR />Set FolderList=Nothing <BR />Set FolderObj=Nothing <BR />End Function <BR />End Class <BR />%> <BR /><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <BR /><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn"> <BR /><head> <BR /><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <BR /><title>目录列表类 支持畸形目录名</title> <BR /></head> <BR /><body> <BR /><% <BR />Dim F: Set F = new FsoCls <BR />Response.write F.FolderItem("/") <BR />%> <BR /></body> <BR /></html> <BR />
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！