Returns the short path used by programs that require the earlier 8.3 file naming convention.
The following code illustrates the use of the ShortName property with a File object.
Sub ShowShortPath(filespec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) s = "The short path for " & "" & UCase(f.Name) s = s & "" & vbCrLf s = s & "is: " & "" & f.ShortPath & "" MsgBox s, 0, "Short Path Info" End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.