简单的不能在简单的问题，竟然给20分……大家快来看呀

[xiaobei525]

<%
' Create a FileSystemObject Object;
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'Create a Folder Object;
Set MyFolder=MyFileObject.GetFolder("e:\a\A")

For Each thing in MyFolder.Files
Response.Write("<font size=2>")
filelen0=Len("e:\a\A")
filelen=Len(thing)
filename=Right(thing,filelen-filelen0)
channel=Left(filename,2)
Response.Write("<p>channel:"&channel)
Response.Write(" <a href=play.asp?record=&thing&> >>></a>")
Response.Write("</font>")
Next
%>

我想，这样的话就可以取到E:\a\A目录下的所有文件，然后显示前面两个字符。
比如：E:\a\A\ILoveYou.txt
显示IL,
可是，不是这么回事呀，
帮忙，帮忙，

[离子漂浮物]

filelen0=Len("e:\a\A")

改

filelen0=Len("e:\a\A\")

[xiaobei525]

果然是这样！谢谢，给分给分！

[hubinasm]

<%
' Create a FileSystemObject Object;
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'Create a Folder Object;
Set MyFolder=MyFileObject.GetFolder("e:\a\A")

For Each thing in MyFolder.Files
Response.Write("<font size=2>")
filelen0=Len("e:\a\A\")
filelen=Len(thing)
filename=Right(thing,filelen-filelen0)
channel=Left(filename,2)
sp = split(thing,"\")
thing = sp(ubound(sp))
Response.Write("<p>channel:"&channel)
Response.Write(" <a href=play.asp?record="&thing&"> >>></a>")
Response.Write("</font>")
Next
%>

[lee2002]

兄弟,用这一段搞定它! ok了。
<%
Set myfileObject =CreateObject("Scripting.FileSystemObject")
Set MyFolder = myfileObject.GetFolder("c:\")
For Each thing In MyFolder.Files
filelen0 = Len("c:\posqt")
Filelen = Len(thing)
FileName = Right(thing, Filelen - filelen0)
channel = Left(FileName, 2)
Response.Write "channel=" & channel & "<br>"
Next
%>