' used API declarations
    Private Declare Function GetShortPathName Lib "kernel32" Alias _
        "GetShortPathNameA" (ByVal lpszLongPath As String, _
        ByVal lpszShortPath As String, ByVal cchBuffer As Int32) As Int32
 
    'returns the shortform of a file
    Private Function GetDosName(ByVal strFile As String) As String
        Dim strText As String, intTemp As Integer
        strText = New String(" ", 255)
        intTemp = GetShortPathName(strFile, strText, strText.Length)
        GetDosName = strText.Substring(0, intTemp)
    End Function

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.