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 Function GetFolderFiles(Path As String, Orde..
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" CODEPAGE="936"% % Function getFileInfo(filespe..
你看见的这些都是在刚步出青春期即被逮捕的黑客。他们中的一部分人做这些是为了赚钱,而另一些则仅仅是因为好玩。
1. Kevin Mitnick
Mitnick 也许是黑客的同义词。美国司法部曾这样评价他:“美国史上被通缉的头号罪犯”。他的丰功伟绩被拍成了两部好莱坞电影:Takedown 和 Freedom Downtime。
Mitnick 以破解 Los Angeles ..
==========ETIME========@echo offcolor 1fecho.echo 定时计划工具 VER:1.0echo by:风弛网络,jastygecho Email:support@efengchi.comecho [url]HTTP://WWW.EFENGCHI.COM[/url]echo for xp/2k3echo.echo.
rem ++++++++++++++++++++外部命令行模式的处理+++++++++++++++++++++++++++
rem ===================检测外部是否输入为空后者是帮助信..