To compare two filenames (Lucian Wischik)


I once visited an ancient tower in China. A sign said “tread carefully for you bear the weight of history on your shoulders”. Our guide explained that the tower was over 800 years old! Oh yes, he said, it was built 800 years ago, had burnt to the ground three times in its history, had been moved to completely different locations twice, but it still counted as 800 years old.

Back in VB land I was making two different calls into some framework, and each call gave me back a filename, and I needed to judge whether the two results were talking about the same file. But how? The framework docs didn’t give any guarantee that they’d give back filenames in the same format. What if one call returned long filenames and the other returned it with different casing? or 8.3 format? Or UNC? Or long UNC?

The following function is the best I could come up with. I think it only makes sense to compare filenames if they point to an existing file. And I called the function “DidFileNamesPointToSameFile”, in the past tense, because by the time the function returns then they might no longer point to the same file anymore!

If anyone has suggestions for neater ways to accomplish the same task, I’d love to hear.



Sub Main()
Dim same1 = DidFileNamesPointToSameFile(“C:SHARELONGFILENAME.TXT”, “c:sharelongfilename.txt”)
Dim same2 = DidFileNamesPointToSameFile(“c:sharelongfilename.txt”, “sharelongfilename.txt”)
same3 = DidFileNamesPointToSameFile(“\lwischiklsharelongfilename.txt”, “c:sharelongfilename.txt”)
Dim same4 = DidFileNamesPointToSameFile(“\?c:sharelongfilename.txt”, “c:sharelongfilename.txt”)
Dim same5 = DidFileNamesPointToSameFile(“c:sharelongfi~1.txt”, “c:sharelongfilename.txt”)
Dim same6 = DidFileNamesPointToSameFile(“c:share”, “C:SHARE”)
    Dim diff1 = DidFileNamesPointToSameFile(“c:shareNonExistantFile.txt”, “c:shareNonExistantFile.txt”)
End Sub

  ”’ <summary>
”’ Determines whether two filenames pointed to the same (existing) file/directory on disk.
”’ This function deals correctly with mismatched case, with relative vs absolute paths, with
”’ UNC-style \serverfilenames, with super-long \?filenames, and with long vs 8.3 filenames.
”’ Note: it’s conceivable that the result of this function has become out of date by the time
”’ it function returns, e.g. if another process is deleting or creating or renaming files.
”’ </summary>
”’ <param name=”FileName1″>The first filename to compare</param>
”’ <param name=”FileName2″>The second filename to compare</param>
”’ <returns>True if both filenames referred to the same file and it existed; false otherwise</returns>
”’ <remarks>This function uses BY_HANDLE_FILE_INFORMATION. This is the only way to determine authoritatively
”’ whether two filenames are equivalent. MSDN explains:
”’ The identifier (low and high parts) and the volume serial number uniquely identify a file on a single computer.
”’ To determine whether two open handles represent the same file, combine the identifier and the volume serial number
”’ for each file and compare them.</remarks>
Function DidFileNamesPointToSameFile(ByVal FileName1 As String, ByVal FileName2 As String) As Boolean
Dim desiredAccess As UInt32 = 0 ‘ We request neither read nor write access
Dim createDisposition As UInt32 = 3 ‘ OPEN_EXISTING
Dim fileAttributes As UInt32 = &H2000080 ‘ FILE_FLAG_BACKUP_SEMANTICS|FILE_ATTRIBUTES_NORMAL. BACKUP is needed to open a directory.

Using handle1 = CreateFile(FileName1, desiredAccess, fileShareMode, IntPtr.Zero, createDisposition, fileAttributes, IntPtr.Zero)
Using handle2 = CreateFile(FileName2, desiredAccess, fileShareMode, IntPtr.Zero, createDisposition, fileAttributes, IntPtr.Zero)
If handle1.IsInvalid OrElse handle2.IsInvalid Then Return False
Dim r1 = GetFileInformationByHandle(handle1, info1)
Dim r2 = GetFileInformationByHandle(handle2, info2)
If r1 = 0 OrElse r2 = 0 Then Return False
Return info1.nFileIndexLow = info2.nFileIndexLow AndAlso info1.nFileIndexHigh = info2.nFileIndexHigh AndAlso info1.dwVolumeSerialNumber = info2.dwVolumeSerialNumber
End Using
End Using
  End Function

Dim dwFileAttributes As Integer
Dim ftCreationTime As System.Runtime.InteropServices.ComTypes.FILETIME
Dim ftLastAccessTime As System.Runtime.InteropServices.ComTypes.FILETIME
Dim ftLastWriteTime As System.Runtime.InteropServices.ComTypes.FILETIME
Dim dwVolumeSerialNumber As Integer
Dim nFileSizeHigh As Integer
Dim nFileSizeLow As Integer
Dim nNumberOfLinks As Integer
Dim nFileIndexHigh As Integer
Dim nFileIndexLow As Integer
End Structure

  <System.Runtime.InteropServices.DllImport(“kernel32.dll”, SetLastError:=True, CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
Function GetFileInformationByHandle(ByVal hFile As Microsoft.Win32.SafeHandles.SafeFileHandle, ByRef lpFileInformation As BY_HANDLE_FILE_INFORMATION) As Integer
End Function

  <System.Runtime.InteropServices.DllImport(“kernel32.dll”, SetLastError:=True, CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
Function CreateFile(ByVal lpFileName As String, ByVal dwDesiredAccess As UInt32, ByVal dwShareMode As UInt32, _
ByVal lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As UInt32, _
ByVal dwFlagsAndAttributes As UInt32, ByVal hTemplateFile As IntPtr) As Microsoft.Win32.SafeHandles.SafeFileHandle
End Function




Leave a comment

Feedback usabilla icon