Option Explicit
Private Type typFlieDate Name As String CreatedDate As Date AccessedDate As Date ModifiedDate As Date End Type
Private myFiles() As typFlieDate '包含文件的数组 Private Sub Command1_Click() Dim n As Integer n = GetFolderFiles( "d:\" , 1) End Sub
Private Func..
files_path=self_path.ParentFolder.ParentFolder folderspec=files_path "\" dir_name Set f = fso.GetFolder(folderspec)
Set fc = f.Files For Each f1 in fc response.write f1.name"br" next ---------------------------------------------------------------
%@LANGUAGE="VBSCRIPT" CODEPA..
@"
if (char.charCodeAt(0) > 126) return char
if (escapes.indexOf(char) != -1) return escaped.substr(escapes.indexOf(char), 1)
return "?"
}
function decodeBase64(string)
{
var val = 0
val += ..
var imestr1="工;式;工;式;匿;葚;慝;萁;苷;甙;苷;芽;芽;戒;苣;苣;荛;荛;节;荫;荫;茸;邛;菡;蒸;荪;节;茁;茁;芤;芤;菰;菰;萨;萨;芭;茎;茎;芭;蓣;茅;苔;苔;基;莽;莽;蕻;苊;苊;茇;茇;戎;葫;苦;蓐;萘;葳;葳;荐;荐;葜;茬;藉;藉;藕;菲;菲;匪;若;若;惹;苈;苈;项;蒇;项;茂;藏;茂;藏;蕨;蕨;其;基;戡;期;斟..