S版主还指出过,只是我现在还不知道怎么弄.大家知道的就帮个忙吧.

[此贴子已经被作者于2005-11-21 20:19:07编辑过]

版主啊!~能不能具体点呀.你就给我一个单词?????解释一下.如果这个问题搞好了.我就想在播放器里加歌词同步.

C:\Program Files\Microsoft Office
↓
C:\PROGRA~1\MICROS~3
能够看出一点点，也就是当读到空格时系统就会用~1代替可是~3
呢
麻烦版主就把主要的几行代码写给我吧．呵呵．我先谢谢．

版主不要这么小气呀.把shortname的用法告诉我.我不会用.我没有学过.

哦,还是谢谢你版主.
你会在里面搞歌词同步吗?还是给个提示好不好.

版主我今天在网上找到了一点关于短文件的文章了。
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Function ShortName(LName As String) As String
'取得短文件名
Dim s As String, i As Long
i = 512
s = Space$(i)
GetShortPathName LName, s, i
ShortName = Left$(s, InStr(1, s, vbNullChar) - 1)
End Function

GetTempPath取得的是一个DOS名称,当文件名长度大于8时，长文件名格式“C:\Documents and Settings\Administrator\Local Settings\Temp”会显示成“C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp”的短文件名格式，如何根据自己需要取得系统临时目录的途径，下面是一个新写的函数，调用两个API 实现，相信许多朋友可能用得到。

Option Explicit
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" (ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long


Sub GetTEMPfolder(Optional ByVal showlong As Boolean = True)

Dim longname As String, shortname As String

shortname = Space(256)
GetTempPath Len(shortname), shortname

longname = Space(1024)
GetLongPathName shortname, longname, Len(longname)



MsgBox "Tempfolder : " & IIf(showlong = True, longname, shortname)

End Sub

Private Sub Command1_Click()
GetTEMPfolder '长文件名
GetTEMPfolder False '短文件名
End Sub

谢谢版主　我回去试试，可是我用的是ＭＣＩ函数做的播放器．

Dim tianjia As Integer '判断是否从新添加音乐文件
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Sub Command1_Click()
Dim lujing As String
If tianjia = 1 Then
MP3.List1.Clear
MP3.List2.Clear
Dim n As Integer
Dim m As Integer
n = File1.ListCount - 1
For m = 0 To n
If File1.Selected(m) = True Then
lujing = File1.Path & "\" & File1.List(m)
MP3.List1.AddItem File1.List(m)
MP3.List2.AddItem ShortName(lujing)
MP3.List1.Refresh
End If
Next
Unload Me
Else
n = File1.ListCount - 1
For m = 0 To n
If File1.Selected(m) = True Then
lujing = File1.Path & "\" & File1.List(m)
MP3.List1.AddItem File1.List(m)
MP3.List2.AddItem ShortName(lujing)
MP3.List1.Refresh
End If
Next
'播放器.MediaPlayer1.Stop
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub del_Click()
MP3.del_Click
End Sub

Private Sub Form_Load()
tianjia = 1
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
tianjia = 1
Else
tianjia = 0
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
tianjia = 0
Else
tianjia = 1
End If
End Sub

Public Function ShortName(LName As String) As String
'取得短文件名
Dim s As String, i As Long
i = 512
s = Space$(i)
GetShortPathName LName, s, i
ShortName = Left(s, InStr(1, s, vbNullChar) - 1)
End Function

我终于做出来了．哈哈＾多谢版主们提示．