Thanks,
Lando

There is only one problem with the function below.  The file must already exist
as strLongPath in order for it to work :P

MsgBox ShortPath("C:\Program Files\Temp Files\Order Processing\MyFile.txt")

Function ShortPath(ByVal strLongPath)

  Dim objFs

  Dim objFile

  '

  ' Create the Scripting.FileSystemObject object.

  '

  Set objFs = CreateObject("Scripting.FileSystemObject")

  '

  ' Open the file.

  '

  Set objFile = objFs.GetFile(strLongPath)

  '

  ' Retrieve and return the short path.

  '

  ShortPath = objFile.shortName()

  '

  ' Destroy the file system objects.

  '

  Set objFile = Nothing

  Set objFs   = Nothing

End Function

Mythran

http://www.vbcodemagician.dk/tips/files_shortname.htm

Chris Barber.

Is there an easy way to convert a long path name to the 8.3 version? For
example I want to copy the file from "C:\myfile.txt" to "C:\my files\temp
files\order processing" How would I convert the destination long path to the
short name? Any sample code would be appreciated.

Thanks,
Lando

Ooh - I got beaten to it with a solution that I never expected!

Damn - and there goes my bet that it was only possible through a custom DLL - I suppose the FSO could be construed as such a thing?

Regards,

Chris.

  There is only one problem with the function below.  The file must already exist as strLongPath in order for it to work :P

  MsgBox ShortPath("C:\Program Files\Temp Files\Order Processing\MyFile.txt")

  Function ShortPath(ByVal strLongPath)

    Dim objFs

    Dim objFile

    '

    ' Create the Scripting.FileSystemObject object.

    '

    Set objFs = CreateObject("Scripting.FileSystemObject")

    '

    ' Open the file.

    '

    Set objFile = objFs.GetFile(strLongPath)

    '

    ' Retrieve and return the short path.

    '

    ShortPath = objFile.shortName()

    '

    ' Destroy the file system objects.

    '

    Set objFile = Nothing

    Set objFs   = Nothing

  End Function

  Mythran

lol

Nice...

  Ooh - I got beaten to it with a solution that I never expected!

  Damn - and there goes my bet that it was only possible through a custom DLL - I
suppose the FSO could be construed as such a thing?

  Regards,

  Chris.


    There is only one problem with the function below.  The file must already
exist as strLongPath in order for it to work :P

    MsgBox ShortPath("C:\Program Files\Temp Files\Order Processing\MyFile.txt")

    Function ShortPath(ByVal strLongPath)

      Dim objFs

      Dim objFile

      '

      ' Create the Scripting.FileSystemObject object.

      '

      Set objFs = CreateObject("Scripting.FileSystemObject")

      '

      ' Open the file.

      '

      Set objFile = objFs.GetFile(strLongPath)

      '

      ' Retrieve and return the short path.

      '

      ShortPath = objFile.shortName()

      '

      ' Destroy the file system objects.

      '

      Set objFile = Nothing

      Set objFs   = Nothing

    End Function

    Mythran