[求助]：如何取得文件的短文件名称？

wlzhzj

请教大侠在VBA中如何取得文件的短文件名称？
谢谢了！

zhang2380

取得短文件名
如果要传递文件到老的不支持长文件名的应用，以下的函数可以派上用场：
Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Function ShortName(LongPath As String) As String
Dim ShortPath As String
Const MAX_PATH = 260
Dim ret&
ShortPath = Space$(MAX_PATH)
ret& = GetShortPathName(LongPath, ShortPath, MAX_PATH)
If ret& Then
ShortName = Left$(ShortPath, ret&)
End If
End Function

wlzhzj

首先谢谢zhang2380 的热心指教。但因没有经验，求教时讲错了。应是如何去掉文件名前的路径和扩展名，如取得“D:\Program Files\AutoCAD 2004\Drawing.dwg" 而只要"Drawing"。

雪山飞狐(lzh)

Function getFileName(str As String)
Do While InStr(str, "\") > 0
str = Mid(str, InStr(str, "\") + 1)
Loop
If InStr(str, ".") Then str = Mid(str, 1, InStr(str, ".") - 1)
getFileName = str
End Function