fso遍历目录文件问题。 - 编程论坛

#2

cnfarer2010-10-07 07:52

关于FSO读取文件名怎么样去掉扩展名：
http://it.

#3

lele20072010-10-08 02:35

谢谢版主。。最后解决了。。

程序代码：

'输出皮肤（主题）下拉选择菜单
function selectSkins()
dim fso,Folder,i,checked,objFile,fileName,o,objFileName
set fso = Server.CreateObject("Scripting.FileSystemObject")
set Folder = fso.GetFolder(server.MapPath("/skins/"))

For each i in Folder.SubFolders
   if Cstr(request.Cookies("skins"))=Cstr(i.name) then
     checked = " selected=""selected"""
   else
     checked = ""
   end if
   set objFile = fso.GetFolder(server.MapPath("/skins/"&i.name&"/"))
   for each o in objFile.files
     if instr(o.name,".txt")>0 then
       fileName = replace(o.name,".txt","")
       exit for
     else
       fileName = "未命名主题"
     end if
   next
   selectSkins = selectSkins&"<option value="""&i.name&""""&checked&">"&fileName&"</option>"&vbcrlf
next

set Folder = nothing
set fso = nothing
set objFile = nothing
end function

for each o in objFile.files
     if instr(o.name,".txt")>0 then
       fileName = replace(o.name,".txt","")
       exit for
     else
       fileName = "未命名主题"
     end if
   next

[ 本帖最后由 lele2007 于 2010-10-8 02:37 编辑 ]

#4

wangjy5002010-10-08 22:25

是什么原因呢。说来听听。学习下。！

#5

lele20072010-10-10 00:19

以下是引用wangjy500在2010-10-8 22:25:25的发言：

是什么原因呢。说来听听。学习下。！

for each o in objFile.files
     if instr(o.name,".txt")>0 then
       fileName = replace(o.name,".txt","")
       exit for
     else
       fileName = "未命名主题"
     end if
   next

后面这段代码里。。加红色的地方。。
找到文本文档获取到名字后就退出。不再遍历。。就不会继续遍历其它的文件。。
这个只是完成我自己需要的功能的。。

这是QQ群的一些对话。。供参考。错了要指出喔。。

程序代码：

asp-乐乐(1578890**0) 0:20:29

解决了，找到问题啦。。^_^..``
asp. 天羽(7101670**) 0:20:43
说说
asp-乐乐(1578890**0) 0:20:45
exit for....
asp. 天羽(7101670**) 0:20:59
~
asp-乐乐(1578890**0) 0:21:52
for each时。。会按字母顺序。。读取内容。。

QQ 空间。。不是最后一个字母。。

皮肤样式里面有比QQ更后的字母。。查找不到.txt..所以返回了

未命名主题
asp-乐乐(1578890**0) 0:22:04
if instr(o.name,".txt")>0 then
   fileName = replace(o.name,".txt","")
   exit for

else
   fileName = "未命名主题"

end if
asp-乐乐(1578890**0) 0:22:29
我加了一个  exit for

找到了.txt并赋值后就退出for循环。。就可以了。。
asp. 天羽(7101670**) 0:23:16
哦
asp-乐乐(1578890**) 0:23:43
z   是最后一个字母。。
不加  exit for 会显示  zz空间。。加了就可以正常读取QQ空间了。。

不是不能以字母开头命名。
asp. 天羽(7101670**) 0:24:00
哦