NyteOwlDave

NyteOwl Consulting has been closed. We still maintain the name for the sake of continuity.

Homer Methodist Projects

Imports System.Runtime.InteropServices Public Module FileSystemModule   <DllImport("kernel32.dll", CharSet:=CharSet.Unicode)>   Private Function GetShortPathNameW    (<MarshalAs(UnmanagedType.LPWStr)>     longName As String,     <MarshalAs(UnmanagedType.LPWStr)>     shortName As String,     ByVal byteCount As Integer)   As Integer   End Function   Function GetShortPathName(pathName As String)   As String     Dim count = 1024     Dim shortPath As String = ""     For n = 1 To count       shortPath += Chr(0)     Next     GetShortPathNameW(pathName, shortPath, count)     Return shortPath   End Function End Module