ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

 FORM-CODE

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

   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

   Const MAX_PATH = 260

   Sub Temp_Datei()
      Dim WinTmpDir, TmpFile As String
      Dim r As Long
      TmpFile = Space$(MAX_PATH)
      'das Temp-Verzeichnis ermitteln:
      WinTmpDir = Environ$("temp")
      r = GetTempFileName(WinTmpDir, "", 0, TmpFile)
      'Dateiname wird in TmpFile gespeichert
      'Fehler ? Dann hat r den Wert 0
      If r <> 0 Then
         TmpFile = Left$(TmpFile, InStr(TmpFile, Chr$(0)) - 1)
         MsgBox TmpFile & " wurde angelegt !"
      Else
        MsgBox "Fehler !"
     End If
   End Sub

   Private Sub Command1_Click()
     Call Temp_Datei
   End Sub

   Private Sub Form_Load()
      Command1.Caption = "Tempdatei erzeugen"
   End Sub

   HINWEIS:
   Die angelegte temporäre Datei wird nicht wieder gelöscht !
   Dies sollte man mit Kill TmpFile erledigen