代码如下: % ' make sure you have the 6 dir_*.gif files! ' yes, you can copy ours if ya want too.. :) ' http://line9.com/img/dir_dir.gif .. etc. Function ShowImageForType(strName) strTemp = strName If strTemp "dir" Then strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1))) End If Select Case strTemp Case "dir" strTemp = "dir" Case "asp" strTemp = "asp...
[ 查看全文 ]