Dos Way

[ASoufan]

I have this path C:\Documents and Settings\System Administrator
as u know dos reads it in this way C:\Docume~1\System~1>

how can I let my application read the path in the dos way using app.path

thanks

[gavio]

Option Explicit
 
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
 
Public Function GetShortPath(strFileName As String) As String
    'KPD-Team 1999
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim lngRes As Long, strPath As String
    'Create a buffer
    strPath = String$(165, 0)
    'retrieve the short pathname
    lngRes = GetShortPathName(strFileName, strPath, 164)
    'remove all unnecessary chr$(0)'s
    GetShortPath = Left$(strPath, lngRes)
End Function
 
Private Sub Form_Load()
    MsgBox GetShortPath(App.Path)
End Sub

[bushmobile]

so is your question that you want to convert App.Path into the short path version? if so:

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" ( _
    ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
 
Private Function GetShortPath(strFileName As String) As String
    'KPD-Team 1999
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim lngRes As Long, strPath As String
    'Create a buffer
    strPath = String$(165, 0)
    'retrieve the short pathname
    lngRes = GetShortPathName(strFileName, strPath, 164)
    'remove all unnecessary chr$(0)'s
    GetShortPath = Left$(strPath, lngRes)
End Function
 
Private Sub Form_Load()
    MsgBox GetShortPath(App.Path)
End Sub

[ASoufan]

can u try this plz ?
MsgBox GetShortPath(App.Path & "\" & App.EXEName & ".exe")
it doesn't return anything :S

[bushmobile]

works absolutely fine for me:

C:\PROGRA~1\MICROS~4\VB98\Project1.exe

[westconn1]

change to this

MsgBox GetShortPath(App.Path) & "\" & App.EXEName & ".exe"

[bushmobile]

change to this

MsgBox GetShortPath(App.Path) & "\" & App.EXEName & ".exe"

no don't do that as the exe name may also need to be shortened.