图老师设计创意栏目是一个分享最好最实用的教程的社区，我们拥有最用心的各种教程，今天就给大家分享取得File 8.3之文件名称格式的教程，热爱PS的朋友们快点看过来吧！
Private Declare Function GetShortPathName Lib "kernel32" Alias"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath AsString, ByVal cchBuffer As Long) As LongPrivate Declare Function GetFullPathName Lib "kernel32" _ Alias "GetFullPathNameA" (ByVal lpFileName As String, _ ByVal nBufferLength As Long, ByVal lpBuffer As String, _ lpFilePart As Byte) As LongPrivate Sub Command1_Click()Dim aa As Long, pbase As LongDim FullPath As String, ShortPath As StringDim SouStr As StringDim len5 As LongDim fname() As ByteDim gg As StringSouStr = "C:vb5.exe"ShortPath = String(255, 0)aa = GetShortPathName(SouStr, ShortPath, 256)SouStr = Left(ShortPath, InStr(1, ShortPath, Chr(0)) - 1)Debug.Print SouStrEnd Sub
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/） 
