Temp-Dateinamen erzeugen

Beim Entwickeln von Applikationen kann das Bedürfnis entstehen, Daten temporär in einer Datei zu sichern. Aber welcher Dateiname soll verwendet werden, damit nicht zufällig eine andere gleichnamige Datei überschrieben wird? Die folgende Funktion bietet eine Lösung, die in jedem Fall einen eindeutigen Dateinamen erzeugt.

Einbinden der API-Funktionen, die neben dem Dateinamen auch den Pfad des temporären Verzeichnisses des Computers ermittelt:

Private Declare Function GetTempFileName _
    Lib "kernel32" _
    Alias "GetTempFileNameA" ( _
        ByVal lpszPath As String, _
        ByVal lpPrefixString As String, _
        ByVal wUnique As Long, _
        ByVal lpTempFileName As String) _
As Long

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

Die folgende Funktion "GetTempName" gibt den Dateinamen inkl. Pfad zurück:

Function GetTempName () As String
    Dim x As String
    Dim y As String
   
    x = Space(260)
    y = Space(260)
  
    GetTempPath 255, y
    GetTempFileName y, "$", 0, x
    GetTempName = x
 End Function

Beispiel:

Aufruf: =GetTempName()
Wert: C:\TEMP\$3A.tmp

Nach dem Aufruf der Funktion "GetTempName" befindet sich die temporäre Datei bereits im angezeigten Verzeichnis, sie solte nach Programmende wieder gelöscht werden.

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch