大家共享:
Set sysFSO = Server.CreateObject("Scripting.FileSystemObject")
Set sysFolder = sysFSO.GetFolder(Server.MapPath("./"))
Set sysFiles = sysFolder.Files
If sysFiles.Count <> 0 Then
For Each sysFile In sysFiles
Response.Write sysFile.Name & "<br>"
Next
End If
本人已经测试通过;