File MD5 Using ExamineDirectory
Posted: Sat Mar 08, 2008 11:01 am
I am working on a small program to list all the files and their MD5 hash in a directory chosen by the user. I have a small procedure (based on the Examine Directory example given in the help file) to list the file name and MD5 in a List Icon gadget.
The file names are being listed, but the MD5 is not being shown for all files. When I select my own My Documents folder (approximately 40 files) for example, only two MD5 hashes are listed alongside the corresponding file names. Other directories with many more files in them list the file names but no MD5 at all.
Another part of the program processes individually selected files and this is works fine. The name and MD5 are displayed in the list.
I have tried various combinations of obtaining the files names and MD5 using the Examine Directory example and searched the forum without success. Is there something else that I need to do or check?
The file names are being listed, but the MD5 is not being shown for all files. When I select my own My Documents folder (approximately 40 files) for example, only two MD5 hashes are listed alongside the corresponding file names. Other directories with many more files in them list the file names but no MD5 at all.
Another part of the program processes individually selected files and this is works fine. The name and MD5 are displayed in the list.
I have tried various combinations of obtaining the files names and MD5 using the Examine Directory example and searched the forum without success. Is there something else that I need to do or check?
Code: Select all
Procedure ListDirectory()
If ExamineDirectory(0,DirectoryToList,"*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
FileName.s = DirectoryEntryName(0)
MD5U.s = UCase(MD5FileFingerprint(FileName))
AddGadgetItem(#ListIcon_MD5, -1, FileName +Chr(10)+ MD5U)
EndIf
Wend
FinishDirectory(0)
EndIf