VB .net version of GetFileInformationByHandle()

nFileIndexHigh and nFileIndexLow

These were unique identifiers for a file under NTFS which did not change over lifetime of the file, e.g. if the file was moved to another directory.

I can not find these indices or a similar persistent identifier under .Net.

http://msdn2.microsoft.com/en-us/library/aa302340.aspx#win32map_fileiofunctions says that GetFileInformationByHandle was migrated to System.IO.FileInfo properties, however, the properties defined therein do not seem to contain the above mentioned info.

My efforts to implement GetFileInformationByHandle manually via P/Invoke were disastrous .... to be honest I do not really know how to correctly port the required data structures to VB

FileStream.Handle is obsolete, however still returns a handle.

However, when I run the code below, I get the following AcccessViolationException.

Thanks for any proposal how to proceed. Maybe there is another unique file identifier available that I can get rid of the API calls

Kind regards

Markus

------------------------------------------------- failure report -----------------------------------------------------------------------

System.AccessViolationException was unhandled
Message="Attempted to read or write protected memory. This is often an indication that other memory is corrupt."
Source="WindowsApplication1"
StackTrace:
at WindowsApplication1.Form1.GetFileInformationByHandle(SafeFileHandle FileHandle, lpFileInformation BY_HANDLE_FILE_INFORMATION)
[...]

at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()

----------------------------------------------------------- code ----------------------------------------------------------

Imports System.IO.FileStream

Imports System.IO

Imports Microsoft.Win32

Public Structure lpFileInformation

Public dwFileAttributes As String

Public ftCreationTime As Date 'was FILETIME

Public ftLastAccessTime As Date 'was FILETIME

Public ftLastWriteTime As Date 'was FILETIME

Public dwVolumeSerialNumber As String 'was DWORD

Public nFileSizeHigh As Integer 'was DWORD

Public nFileSizeLow As Integer 'was DWORD

Public nNumberOfLinks As Integer 'was DWORD

Public nFileIndexHigh As Integer 'was DWORD

Public nFileIndexLow As Integer 'was DWORD

End Structure

[ ... ] - finally in main:

Declare Auto Function GetFileInformationByHandle Lib "kernel32" (ByVal FileHandle As IntPtr, ByVal BY_HANDLE_FILE_INFORMATION As lpFileInformation) As Integer

Dim fh_obsolete As IntPtr

Dim stream2 As New FileStream("C:\Testfile.txt", FileMode.Open, FileAccess.Read, FileShare.Read)

Dim fi As WindowsApplication1.Form1.lpFileInformation

GetFileInformationByHandle(fh_obsolete, fi)