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..
Windows 下的 DOS 命令延时执行
先创建一个.VBS 文件,代码如下:-------------------------------------------------------Wscript.Sleep Wscript.Arguments(0) * 1000
批处理文件代码:-------------------------------------------------------@ECHO 10 秒后执行 dir 命令delay.vbs 10DIRPAUSEde..