如何用FSO对象列出文件夹下的所有文件名称和文件夹?

darker 2003-08-19 08:59:35

或是用JS脚本或其它,列出给定目录下的所有文件名称和子文件夹名称?

...全文

126 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

czylz 2003-08-19

打赏
举报

friendxu 2003-08-19

打赏
举报

已经很全了，有vbscript,javascript。可自行选择，自由发挥！

GHOSTWY 2003-08-19

打赏
举报

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<HTML>
<HEAD> <TITLE>文件浏览器</TITLE> </HEAD>
<BODY>
<TABLE width="100%" border=1 bordercolor="#000000" align="left" cellpadding="2" cellspacing="0">
<TR align="left" valign="top" bgcolor="#800000" >
<TD width="60%">文件名</TD>
<TD width="15%">大小</TD>
<TD width="25%">修改日期</TD>
</TR>
<%
Dim objFSO
Dim objFile
Dim objFolder
Dim sMapPath
dim i
i=0
Set objFSO = CreateObject("Scripting.FileSystemObject")
sMapPath ="E:\asp" '修改为你的目录
Set objFolder = objFSO.GetFolder(sMapPath)
response.Write(objFolder.DateLastModified)
For Each objFile In objFolder.Files
%>
<TR align="left" valign="top" bordercolor="#999999" bgcolor='f7efde'>
<TD> <A href="<% = sMapPath & "/" & objFile.Name %>">
<%
i=i+1
Response.Write objFile.Name
%>
</A>

</TD>
<TD>

<%
If objFile.Size <1024 Then
Response.Write objFile.Size & " Bytes"
ElseIf objFile.Size < 1048576 Then
Response.Write Round(objFile.Size / 1024.1) & " KB"
Else
Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
End If
%>

</TD>
<TD>

<%
Response.Write objFile.DateLastModified
%>

</TD>

</TD>
</TR>
<%
Next
if i=0 then response.Write("NO files!")
%>
</TABLE>
</BODY>
</HTML>

anita2li 2003-08-19

打赏
举报

Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
s = s & f1.name
s = s & " "
Next
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & " "
Next

iceriver521 2003-08-19

打赏
举报

MyLearn 2003-08-19

打赏
举报

Brookes 2003-08-19

打赏
举报

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a reference to drive C
Set objDriveC = objFSO.GetDrive("C:")
' Get a reference to the root folder
Set objRoot = objDriveC.RootFolder
' Get a reference to the SubFolders collection
Set objFolders = objRoot.SubFolders
' Get a reference to the first folder in the SubFolders collection
For Each objFolder In objFolders
Set objFolder1 = objFolders.Item((objFolder.Name))
Exit For
Next
' Iterate through all the files in this folder
For Each objFile in objFolder1.Files
Response.Write "Name: " & objFile.Name & " "
Response.Write "ShortName: " & objFile.ShortName & " "
Response.Write "Size: " & objFile.Size & " bytes "
Response.Write "Type: " & objFile.Type & " "
Response.Write "Path: " & objFile.Path & " "
Response.Write "ShortPath: " & objFile.ShortPath & " "
Response.Write "Created: " & objFile.DateCreated & " "
Response.Write "LastModified: " & objFile.DateLastModified & ""
Next