Tipp 0274 Temporäres Verzeichnis ermitteln
Autor/Einsender:
Datum:
  Daniel Fiedler
26.09.2002
Entwicklungsumgebung:   VB 6
Mit der Umgebungsvariablen Environ ließe sich weitaus einfacher das Verzeichnis zur Ablage von temporären Dateien ermitteln,
 
sTempPath = Environ("TEMP")
 
allerdings hat dies den Nachteil, dass mit dieser Methode nicht auf allen Rechnern ein korrektes Ergebnis zurückgeliefert wird. Mit der API-Funktion GetTempPath hingegen lässt sich der Pfad des temporären Verzeichnisses immer exakt ermitteln.
 
Option Explicit

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

Function GetTempDir() As String
  Dim strBuffer As String
  Dim nRetVal   As Long
  Dim strPath   As String

  strBuffer = Space(255)
  nRetVal = GetTempPath(255, strBuffer)

  If nRetVal > 0 Then
    strPath = Left$(strBuffer, nRetVal)
    If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
  End If

  GetTempDir = strPath
End Function
 
Beispiel-Aufruf
 
MsgBox "Temp-Verzeichnis: " & GetTempDir
 
Hinweis für VBA-Anwender
Der hier abgebildete Code funktioniert auch in einem VBA-Projekt, dieser muss dazu lediglich in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist nicht möglich.
Weitere Links zum Thema
Temporäre Dateinamen anfordern

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,4 kB) Downloads bisher: [ 1056 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 28. August 2011