Problem mit GetWindowsTempFolder()

14/09/2007 - 09:27 von Ahmed Martens | Report spam
Hallo Leute,

ich möchte die Funktion GetWindowsTempFolder() verwenden. Als Ergebnis
erhalte ich aber immer nur den abgekürzten Pfad mit '~'. Mit welcher
Funktion erhalten ich den kompletten ausgeschriebenen Pfad.

Der Aufruf ist wie folgt:

Private Declare Function GetTempPath Lib "kernel32.dll" Alias
"GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Function GetWindowsTempFolder()
Dim RetVal As Long
Dim TempDir As String

TempDir = Space$(512)
RetVal = GetTempPath(Len(TempDir), TempDir)

If RetVal <> 0 Then
GetWindowsTempFolder = Left$(TempDir, RetVal)
End If
End Function


Eine andere API-Funktion liefert IMO überhaupt kein Temp-Pfad. Den
müsste ich also selber zusammenstellen, was aber eben nicht immer
richtig sein muss.

Private Declare Function SHGetSpecialFolderLocation Lib _
"shell32.dll" (ByVal hwndOwner As Long, _
ByVal nFolder As Long, pidl As ITEMIDLIST) As Long

Private Declare Function SHGetPathFromIDList Lib _
"shell32.dll" Alias "SHGetPathFromIDListA" _
(ByVal pidl As Long, ByVal pszPath As String) As Long


Hat jemand eine Idee wie ich richtig vorgehen muss?

Gruß Ahmed
Antworten bitte nur in der Newsgroup.
 

Lesen sie die antworten

#1 Ahmed Martens
14/09/2007 - 10:29 | Warnen spam
Hallo Leute,

ich einfach mal versucht eine Datei zu verschieben und es hat
funktioniert. Aber warum wird nicht der richtige Pfad (Volltext)
ausgegeben? :-?

Gruß Ahmed
Antworten bitte nur in der Newsgroup.

Ähnliche fragen