取得File 8.3之文件名称格式
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(...[ 查看全文 ]
