‘ The attributes of a file in a readable format.’ It works also with open files, raises an error if the file doesn’t exist.Function GetAttrDescr(filename As String) As String Dim
‘ Returns a collection with the names of all the image’ files in a directory or a directory tree’ this includes all the image types that can be loaded into
‘ Returns a collection with the names of all the executable’ files in a directory or a directory tree’ this includes all “exe”, “bat”, “com”, “pif” files” NOTE: Uses the
You may have read my previous articles on the VB2TheMax site where I described COM+ and the basics of Internetsecurity [1]. In the last article of this series I willdiscuss
Private Const MAX_PATH = 260Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80End TypePrivate Declare Function SHGetFileInfo
Private Const MAX_PATH = 260Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80End TypePrivate Declare Function SHGetFileInfo
Option ExplicitPrivate Declare Function FindFirstFile Lib “kernel32” Alias “FindFirstFileA” _ (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As LongPrivate Declare Function FindNextFile Lib “kernel32” Alias “FindNextFileA” _ (ByVal hFindFile As