Public Sub Test() 
 
  Dim h As Long 
 
  Dim p As String 
  Dim f As String 
 
  On Error Resume Next 
 
  h = FreeFile 
 
  d = "C:\Temp" 
  f = "IrgendeinEindeutigerName.tmp" 
 
  Open d & "\" & f For Binary Access Write As #h 
 
  Put #h, , "Test" 
 
  Close #h 
 
  If UCase(Dir(d & "\" & f)) <> UCase(f) Then 
 
    MsgBox "Keine Rechte" 
 
  Else 
 
    Kill d & "\" & f 
 
    MsgBox "Datei wurde erstellt" 
 
  End If 
 
End Sub

____________________________________

...vorhanden!