'===========================================================================
' Subject: LONG FILENAME TO SHORT             Date: 01-20-98 (12:14)       
'  Author: Dave Navarro, Jr.                  Code: PBDLL                  
'  Origin: dave@powerbasic.com              Packet: PBDLL.ABC
'===========================================================================
'===========================================================================
'
' LongToShort for PB/DLL 5.0
' Copyright (c) 1998 by PowerBASIC, Inc.
'
'===========================================================================

$COMPILE EXE
$INCLUDE "WIN32API.INC"

FUNCTION LongToShort(BYVAL Path AS STRING) AS STRING

  LOCAL LongPath  AS ASCIIZ * 256
  LOCAL ShortPath AS ASCIIZ * 256
  LOCAL Temp      AS STRING

  WHILE LEN(Path)
    Temp      = EXTRACT$(Path, "\")
    LongPath  = ShortPath + Temp
    Path      = LTRIM$(MID$(Path, LEN(Temp) + 1), "\")
    GetShortPathName LongPath, ShortPath, SIZEOF(ShortPath)
    ShortPath = ShortPath + "\"
  WEND

  FUNCTION = RTRIM$(ShortPath, "\")

END FUNCTION

FUNCTION WinMain (BYVAL CurInst&, _
                  BYVAL PrvInst&, _
                  CmdLine AS ASCIIZ PTR, _
                  BYVAL CmdShow&) EXPORT AS LONG

  d$ = "C:\Program Files\Common Files\Designer\mscondes.dll"

  MsgBox d$,, LongToShort(d$)

END FUNCTION