请教个asp的问题。。

fso遍历指定目录的文件时。。
判断英文名字的文件失效了。。

'输出皮肤（主题）下拉选择菜单
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","")
     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","")
     else
       fileName = "未命名主题"
     end if
   next

这里如果文本文档的名字为：   qq空间  含有英文名字。。就会返回   未命名主题，不返回  qq空间
如果是全中文的字符，可以正常返回。或者不是英文字母开始也可以正常返回。。
这个是什么问题呢？


以英文开头命名时。。读取不到名字。返回了:未命名的主题





不以英文开头命名时，可以正常返回。。

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

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

'输出皮肤（主题）下拉选择菜单
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 编辑 ]

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

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
哦