Comments on: Short DOS Path

By: Stuart

Stuart — Sat, 05 Dec 2009 11:14:00 +0000

Dick, pls check your gmail.

Thanks,

Stuart

By: JP

JP — Fri, 04 Dec 2009 21:39:00 +0000

Still using two syntax highlighter plugins, eh?

Your function doesn't declare a return value type. Also, you can use CreateObject and avoid the early binding.

By: fzz

fzz — Thu, 03 Dec 2009 20:18:00 +0000

@#$% angle brackets!

for %%f in ([long file name]) do set SHORTFILENAME=%%~sf

By: fzz

fzz — Thu, 03 Dec 2009 20:17:00 +0000

Or, since this is for a batch file anyway, in the batch file

for %%f in () do set SHORTFILENAME=%%~sf

There ARE times VBA is NOT the best tool for the task.

By: Rob Bruce

Rob Bruce — Thu, 03 Dec 2009 14:47:00 +0000

Something like this doesn't have the scripting library overhead:

Private Declare Function GetShortDOSPathName Lib "Kernel32" _
Alias "GetShortPathNameA" _
(ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, _
ByVal cchBuffer As Long) _
As Long

Function GetShortName(ByVal LongPath As String) As String

Dim strShortPath As String
Dim lngBuffer As Long
Dim lngRet As Long

strShortPath = String$(1024, 0)
lngBuffer = Len(strShortPath)
lngRet = GetShortDOSPathName(LongPath, strShortPath, lngBuffer)
GetShortName = Left(strShortPath, lngRet)

End Function