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..
Google 的企业应用套件已经开放了,现在可以免费注册,一共有三个版本 免费版、标准版、教育版。刚开始app开始测试时,我就已经对它感兴趣了,不过当时没有域名所以没有注册成功。前几天刚买了域名,所以第一时间注册了 Google App 套件。我选择的免费版,因为免费版的功能对于我来说已经足够,这个是我..