菜鸟问题,如何读取目录下文件

[shijicatty]

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder("C:\Inetpub\wwwroot\tsggl\tsgtz\")

Set fc = f.File

Dim i = 0

For Each f1 in fc

array1(i)=f1.name
i=i+1
Next

问题出在哪里?

[shijicatty]

Set f = fs.GetFileName("C:\")
这行代码有错误，错误在哪里

[pwife]

缺文件名。

用了GetFolder后，GetFileName不用再加路径了，GetFileName（"test.txt")即可。

另外，楼主是要对文件操作呢还是列出目录下所有文件名？

[pwife]

晕，看错了：（

[三仙半]

<% option explicit%>
这个文件列出了当前运行文件所在文件夹的目录结构<Br><Br>
当前文件夹是
<%
Dim objFSO,objFolder
set objFSO = server.createObject("scripting.fileSystemObject")
set objFolder = objFSO.getFolder(server.mapPath(".\"))
response.write objFolder.path&"<BR>"
search objFolder,1
sub search(whichFolder,layer)
Dim objFile,objSubFolder,objDelFile
Dim i
set objDelFile = server.createObject("scripting.fileSystemObject")
for i = 1 to layer-1
response.write "    "
next
response.write "["&whichFolder.name&"]"&"<BR>"
if whichFolder.files.count <> 0 then
For Each objFile in whichFolder.Files
for i = 1 to layer
response.write "    "
next
response.write objFile.name&"<BR>"
next
end if
if whichFolder.subFolders.count <> 0 then
For Each objSubFolder in whichFolder.SubFolders
search objSubFolder,layer+1
next
end if
end sub
%>
把这个代码存一个.asp文件，在IIS中设置好虚拟目录，它就可以遍历列出虚拟目录下的所有文件，包含子文件夹下的文件。