asp网站中用vb遍历文件名排序问题
asp网站中用vb遍历文件名,排序是1.html,10.html 11.html,2html,好像是默认按照文本类型排序的,我想按照从大到小排序,11.html,10.html,2.html,1.html ,以下是代码部分,我应该如何修改:
Function FileExtensionIsBad(sFileName)
Dim Extension, bFileExtensionIsValid, sFileExt
Extensions = Array("html","htm","asp")
'设置列表的文件名,扩展名不在其中的话SiteMap则不会收录该扩展名的文件
if len(trim(sFileName)) = 0 then
FileExtensionIsBad = true
Exit Function
end if
sFileExtension = right(sFileName, len(sFileName) - instrrev(sFileName, "."))
bFileExtensionIsValid = false 'assume extension is bad
for each sFileExt in extensions
if ucase(sFileExt) = ucase(sFileExtension) then
bFileExtensionIsValid = True
exit for
end if
next
FileExtensionIsBad = not bFileExtensionIsValid
End Function
谢谢大家!