Public Function New( _
   ByVal filename As String _
)

public TempFile( 
   string filename
)

string path = Path.GetTempFileName();
Assert.IsTrue(File.Exists(path));
File.WriteAllText(path, "Test");

TempFile filea = TempFile.Attach(path);
Assert.AreEqual(path, filea.TempPath);
Assert.AreEqual("Test", File.ReadAllText(filea.TempPath));

filea.Dispose();
Assert.IsFalse(File.Exists(path));

using (TempFile filec = new TempFile(path))
    Assert.IsFalse(File.Exists(path));

Dim path As String = Path.GetTempFileName()
Assert.IsTrue(File.Exists(path))
File.WriteAllText(path, "Test")

Dim filea As TempFile = TempFile.Attach(path)
Assert.AreEqual(path, filea.TempPath)
Assert.AreEqual("Test", File.ReadAllText(filea.TempPath))

filea.Dispose()
Assert.IsFalse(File.Exists(path))

Using filec As New TempFile(path)
    Assert.IsFalse(File.Exists(path))
End Using