怎么获得TEMP文件夹的长路径。

[ah_2046]

如题，不知道各位是怎么获得这个长路径的，怎么API,FSO都是短路径呢、。

[chinaboyzyq]

Private Sub Command1_Click()

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set sh = CreateObject("Shell.Application")
    MsgBox sh.NameSpace(fso.GetSpecialFolder(2).Path).Self.Path
End Sub

[ah_2046]

[Quote=引用 1 楼 spt_petrolor 的回复:]
VB code

Option Explicit
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
(ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) A……
[/Quote]
对的，就是这个API

[ah_2046]

[Quote=引用 2 楼 chinaboyzyq 的回复:]
VB code

Private Sub Command1_Click()

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("Shell.Application")
MsgBox sh.NameSpace(fso.GetSpecialFolder(2).Pat……
[/Quote]
猴哥这个是很好，但是有些公司IT很喜欢禁用FSO。

[王二.麻子]

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 Sub Form_Load()
Dim a As String, b As String, c As Long
a = Environ("Temp")
b = Dir(a & "\*.*")
b = a & "\" & b
Dim L As String * 1000
c = GetLongPathName(b, L, 999&)
Debug.Print L
End Sub