I am searching for temporary files to delete, but the attributes
of no files are showing up as temporary and I know I have temp
files:
The only attribute that is set is archive.VB Code:
' IN MODULE Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Public Const MAX_PATH = 260 Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type 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 Const FILE_ATTRIBUTE_ARCHIVE = &H20 Public Const FILE_ATTRIBUTE_COMPRESSED = &H800 Public Const FILE_ATTRIBUTE_DEVICE = &H40 Public Const FILE_ATTRIBUTE_DIRECTORY = &H10 Public Const FILE_ATTRIBUTE_ENCRYPTED = &H4000 Public Const FILE_ATTRIBUTE_HIDDEN = &H2 Public Const FILE_ATTRIBUTE_NORMAL = &H80 Public Const FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = &H2000 Public Const FILE_ATTRIBUTE_OFFLINE = &H1000 Public Const FILE_ATTRIBUTE_READONLY = &H1 Public Const FILE_ATTRIBUTE_REPARSE_POINT = &H400 Public Const FILE_ATTRIBUTE_SPARSE_FILE = &H200 Public Const FILE_ATTRIBUTE_SYSTEM = &H4 Public Const FILE_ATTRIBUTE_TEMPORARY = &H100 ' FORM Dim FileData As WIN32_FIND_DATA FindFirstFile "C:\temp\~DF2D2F.tmp", FileData MsgBox Hex(FileData.dwFileAttributes)
How do you find temporary files and directories?




Reply With Quote