This code works great to hash a single file but crashes if I feed files to it too fast.īTW. GetHash = Hex(md5DataSum.dwSum(0)) & Hex(md5DataSum.dwSum(1)) & Hex(md5DataSum.dwSum(2)) & Hex(md5DataSum.dwSum(3)) MD5Translate lpData, FileLen(MyFile), md5DataSum MDxPad lpData, FileLen(MyFile), FileLen(MyFile) If FileLen(MyFile) = 0 Then Exit Function Private Declare Function MDxPad Lib "mdx.dll" (ByVal MyString As String, ByVal MyLong As Long, ByVal MyLong As Long) As Long Private Declare Function MDxInit Lib "mdx.dll" (ByRef MySum As MDxSum) As Long Private Declare Function MDxGetVersion Lib "mdx.dll" () As Long Private Declare Function MDxFinalize Lib "mdx.dll" (ByRef MySum As MDxSum) As Long Private Declare Function MD5Translate Lib "mdx.dll" (ByVal MyString As String, ByVal MyLong As Long, ByRef MySum As MDxSum) As Long Private Declare Function MD4Translate Lib "mdx.dll" (ByVal MyString As String, ByVal MyLong As Long, ByRef MySum As MDxSum) As Long InitialDir = cstrSamplePath ' Initial folder, can also be a file name Flags = FleFileMustExist + FleHideReadOnly + FleCreatePrompt DialogTitle = "Total Visual SourceBook Example of File Save" ' First set the properties for the class.
' Use the Show method to show the "Save" dialog. MsgBox "You cancelled the File Open dialog" GetFileName(True, "*.txt", "Total Visual SourceBook Example of File Open", "Text files (*.txt)|*.txt|All Files (*.*)|*.*") ' Use the GetFileName method to Display the file open dialog and retrieve the file name ' This method accepts parameters rather than requiring the class properties to be set. ' Comments: Examples of using the CFileDialog class to invoke the Windows API Common Control for selecting a file or files from the File Dialog in VBA and VB6.Ĭonst cstrSamplePath As String = "C:\Total Visual SourceBook 2013\Samples\" ' Then run the procedure by putting the cursor in the procedure and pressing: ' F5 to run it, or ' F8 to step through it line-by-line (see the Debug menu for more options) ' Example of CFileDialog ' ' To use this example, create a new module and paste this code into it.
Return the path, then the file names separated by spaces: e.g.: C:\Total Visual SourceBook\ install.log readme.txt. If multiple files were selected, TrimNulls Get the passed string, terminated at the first single or double null character. This function eliminates the need to setĭisplay the file Open/Save common dialog. Get the initial directory (folder) path where the dialog opens.ĭisplay the Windows file Open/Save common dialog and retrieve the file name. Use this property to provide the user with a list of file types that can be selected when the
Declarations and private variables for the CFileDialog class.
0 kommentar(er)
