ASP FSO显示特殊文件夹的实现代码(畸形目录名、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.jb51.net
'描述：目录列表类，支持畸形目录名
'***************************
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>

赞 (0)

相关推荐

  • ASP FSO显示特殊文件夹的实现代码(畸形目录名、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

  • ASP编程入门进阶（十七）：FSO组件之文件夹操作

    操作完驱动器,接着就是来操作文件夹了.其中包括:提取文件夹信息.创建文件夹.删除文件夹.复制文件夹.移动文件夹等.下面就具体来看. 一.fso.GetFolder一看就明白,是提取文件夹了.那具体是提取哪个文件夹呢?后面肯定要跟一个文件夹的路径.提取出来了再来显示该文件夹相关信息呢?是不是有要具体提取下去.所以,看程序:1,getfldr.asp <%Set fso = CreateObject("Scripting.FileSystemObject")Set fldr = fs

  • ASP如何检测某文件夹是否存在,不存在则自动创建

    直接给大家分享一下我们测试正常可以使用的代码,并且支持多级目录创建 代码一 Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder = CFolder On Error Resume Ne

  • VBS 显示“选择文件或文件夹”对话框的代码

    一.显示"选择文件"的对话框 问: 嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? 答:您好.| 如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法. 但如果您使用的是 Windows XP,情况就不同了.在 Windows XP 上,您可以使用"UserAccounts.CommonDialog" 对象向用户显示一个标准的"文件打开"对

  • php随机显示指定文件夹下图片的方法

    本文实例讲述了php随机显示指定文件夹下图片的方法.分享给大家供大家参考.具体如下: 此代码会从指定的服务器文件夹随机选择一个图片进行显示,非常有用,图片格式为.gif,.jpg,.png <?php //This will get an array of all the gif, jpg and png images in a folder $img_array = glob("/path/to/images/*.{gif,jpg,png}",GLOB_BRACE); //Pi

  • vbs,hta中选择文件夹对话框实现代码

    复制代码 代码如下: on error resume next SelectFolder function SelectFolder() Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(MY_COMPUTER) Set

  • 易语言实现文件夹加密的代码

    易语言实现文件夹加密的代码

    加密锁上文件夹 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 ＝ 浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"

  • Python批量解压&压缩文件夹的示例代码

    Python批量解压&压缩文件夹的示例代码

    目录 一.python批量解压 二.python批量压缩 一.python批量解压 提示:如果是重要数据解压前请先备份,解压后会覆盖原压缩文件!! 解压前: 解压后:文件名为英文: 文件名中包含中文: 代码如下 import os import shutil import zipfile # 首先引入需要的工具包 # shutil为后期移动文件所需,可以忽略此项 # 路径改这里! #parent_path = r'输入路径,会解压该路径下的所有zip压缩文件' parent_path = r'E

  • asp遍历站点所有文件夹的代码

    <!-- 遍历站点所有文件夹 -->   <style>   <!--   body{font-size:12px;}   -->   </style>   <script language="vbscript">   <!--   sub fsubmit()   form1.submit   End sub   -->   </script>   <form name="form1&q

  • asp.net 删除项目文件/文件夹IIS重启，Session丢失问题

    仔细一看,SSO返回的ticket也不相同,才发现原来IIS重启了,最后解决方案如下: 新建一个类继承IHttpModule 复制代码 代码如下: /// <summary> /// Stops the ASP.NET AppDomain being restarted (which clears /// Session state, Cache etc.) whenever a folder is deleted. /// </summary> public class Stop

随机推荐