ASP FSO顯示特殊文件夾的實現代碼(畸形目錄名、

2024-05-04 11:08:09

字體：大中小

來源：轉載

供稿：網友

一些特殊的文件夾asp是沒法完全顯示出來的，但是可以通過unc路徑去刪除，但前提是得知道準確路徑

這個目前還是有個別無法顯示，翻了下msdn貌似沒看到更好的解決方案，暫時放棄繼續研究，有曉得完全解決的朋友不妨回復說一聲。
先附bat創建畸形目錄，以下代碼復制另存為a.bat：

復制代碼代碼如下:

		
		md aux// 
		md com1// 
		md com2// 
		md prn// 
		md con// 
		md nul// 
		md dot...// 
		md onedot..// 

程序代碼

復制代碼代碼如下:

		
		<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
		<% 
		option explicit 
		response.charset = "UTF-8" 
		session.codepage = 65001 
		session.timeout = 1440 
		server.scripttimeout = 9999 
		'*************************** 
		'名稱：目錄列表類 
		'作者：逸品 
		'日期：2010-4-28 
		'網址：www.49028c.com 
		'描述：目錄列表類，支持畸形目錄名 
		'*************************** 
		Class FsoCls 
		Private Fso 
		Public FsoObj 
		Private Sub Class_Initialize 
		Set Fso=CreateObject("Scripting.FileSystemObject") 
		Set FsoObj=Fso 
		End Sub 
		Private Sub Class_Terminate 
		Set Fso=Nothing 
		Set FsoObj=Nothing 
		End Sub 
		Function IsFolderExists(FolderPath) 
		If fso.FolderExists(FolderPath) Then 
		IsFolderExists = true 
		Else 
		IsFolderExists = false 
		End If 
		End Function 
		Function FolderItem(ByVal FolderDir) 
		If Instr(FolderDir,":/")>0 Then 
		FolderDir="//?/"&FolderDir&"/" 
		Else 
		FolderDir="//?/"&Server.MapPath(FolderDir)&"/" 
		End If 
		If IsFolderExists(FolderDir) = False Then 
		FolderItem=False 
		Exit Function 
		End if 
		Dim FolderObj,FolderList,F,i 
		i=1 
		Set FolderObj=Fso.GetFolder(FolderDir) 
		Set FolderList=FolderObj.SubFolders 
		FolderItem="目錄總數："&FolderObj.SubFolders.Count&"<hr>" & vbcrlf 
		FolderItem=FolderItem&"文件總數："&FolderObj.Files.count&"<hr>" & vbcrlf 
		
		For Each F In FolderList 
		'Response.Write F.ShortName 
		'Response.Write (instr(1,F.ShortName,"~",1)) 
		If IsFolderExists(FolderDir&F.Name) = True Then Response.Write ("T<br>" & vbcrlf) 
		If(instr(1,F.Name,".",0)>0) Then 
		Response.Write ("T") 
		F.Name=Replace(F.Name,".","-") 
		End if 
		FolderItem=FolderItem&i&"├─文件夾→"&F.Name&"<br>" & vbcrlf 
		i=i+1 
		Next 
		Set FolderList=Nothing 
		Set FolderObj=Nothing 
		End Function 
		End Class 
		%> 
		<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
		<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn"> 
		<head> 
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
		<title>目錄列表類 支持畸形目錄名</title> 
		</head> 
		<body> 
		<% 
		Dim F: Set F = new FsoCls 
		Response.write F.FolderItem("/") 
		%> 
		</body> 
		</html> 