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..
Microsoft Access 数据库的“自动编号”默认都是以“1”开始的,但是我们如果想从“100”或“100000”开始要怎么做呢?网络上有人提供答案或程序,就是先添加 1000 条或 100000 条记录,再把它删除了,这样做虽然可以达到效果,但是太费劲了,现在用 SQL 语句 insert into 就可以达到效果,代码如下:
%
dim ACMA
set ACMA=Server.Cr..
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..