module1.bas

variant code in this rar zipped package

Attribute VB_Name = "Module1"
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright 1996-2001 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' You are free to use this code within your own applications,
' but you are expressly forbidden from selling or otherwise
' distributing this source code without prior written consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Const MAX_PATH As Long = 260
Public Const INVALID_HANDLE_VALUE As Long = -1
Public Const FILE_ATTRIBUTE_DIRECTORY As Long = &H10
Public Const SHGFP_TYPE_CURRENT As Long = &H0
Public Const SHGFP_TYPE_DEFAULT As Long = &H1
Public Const CSIDL_FAVORITES As Long = &H6
Public Const CSIDL_COMMON_FAVORITES As Long = &H1F
Public Const MAX_LENGTH As Long = 260
Public Const S_OK As Long = 0
Public Const S_FALSE As Long = 1

     
    
'类型定义 指定一个结构
'明 windows提供了一种特殊的机制,可以记录文件的访问及创建时间
'在win32环境中,这些信息以64位值的形式保存
'供定义WIN32_FIND_DATA使用
Public Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type

'这个结构用于装载与找到的文件有关的信息
'供下面的findfirstfile和findnextfile函数使用
Public Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FILETIME
   ftLastAccessTime As FILETIME
   ftLastWriteTime As FILETIME
   nFileSizeHigh As Long
   nFileSizeLow As Long
   dwReserved0 As Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type

'以下定义用于遍历并返回收藏夹信息
Public Type FILE_PARAMS
   bRecurse As Boolean
   bList As Boolean
   bFound As Boolean
   sFileRoot As String
   sFileNameExt As String
   sResult As String
   nFileCount As Long
   nFileSize As Double
End Type

'读写 ini 文件的函数
Public Declare Function GetPrivateProfileString _
   Lib "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpSectionName As String, _
   ByVal lpKeyName As Any, _
   ByVal lpDefault As String, _
   ByVal lpReturnedString As String, _
   ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
'取得文件所在路径
Public Declare Function SHGetFolderPath _
    Lib "shfolder.dll" Alias "SHGetFolderPathA" _
   (ByVal hwndOwner As Long, _
     ByVal nFolder As Long, _
     ByVal hToken As Long, _
     ByVal dwReserved As Long, _
     ByVal lpszPath As String) As Long
'根据文件名查找文件
'由这个函数返回的句柄可以作为一个参数用于FindNextFile函数
'与FindNextFile一起方便的枚举出与lpFileName参数指定的文件名相符的所有文件
Public Declare Function FindFirstFile Lib "kernel32" _
   Alias "FindFirstFileA" _
  (ByVal lpFileName As String, _
   lpFindFileData As WIN32_FIND_DATA) As Long

'根据调用FindFirstFile函数时指定的一个文件名查找下一个文件
'lpFindFileData类型为WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
Public Declare Function FindNextFile Lib "kernel32" _
   Alias "FindNextFileA" _
  (ByVal hFindFile As Long, _
   lpFindFileData As WIN32_FIND_DATA) As Long
'关闭由FindFirstFile函数创建的一个搜索句柄
Public Declare Function FindClose Lib "kernel32" _
  (ByVal hFindFile As Long) As Long