Public Overloads Shared Function CreateNew( _
   ByVal filename As String, _
   ByVal blockSize As Integer _
) As FragmentedFile

public static FragmentedFile CreateNew( 
   string filename,
   int blockSize
)

using (TempFile file = new TempFile())
{
    Guid guid = Guid.NewGuid();
    long id;

    using (FragmentedFile ff = FragmentedFile.CreateNew(file.TempPath, 512))
    {
        using (Stream io = ff.Create(out id))
            PrimitiveSerializer.Guid.WriteTo(guid, io);
        Assert.AreEqual(id, ff.FirstIdentity);
    }
    using (FragmentedFile ff = new FragmentedFile(file.TempPath, 512))
    {
        Assert.AreEqual(id, ff.FirstIdentity);
        using (Stream io = ff.Open(id, FileAccess.Read))
            Assert.AreEqual(guid, PrimitiveSerializer.Guid.ReadFrom(io));
    }
    using (FragmentedFile ff = new FragmentedFile(file.TempPath, 512, 10, 10, FileAccess.Read, FileShare.None, FileOptions.None))
    {
        Assert.AreEqual(id, ff.FirstIdentity);
        using (Stream io = ff.Open(id, FileAccess.Read))
            Assert.AreEqual(guid, PrimitiveSerializer.Guid.ReadFrom(io));

        AssertThrows<InvalidOperationException>(delegate() { ff.Open(id, FileAccess.Write).Dispose(); });
    }
}

Using file As New TempFile()
    Dim guid As Guid = Guid.NewGuid()
    Dim id As Long

    Using ff As FragmentedFile = FragmentedFile.CreateNew(file.TempPath, 512)
        Using io As Stream = ff.Create(id)
            PrimitiveSerializer.Guid.WriteTo(guid, io)
        End Using
        Assert.AreEqual(id, ff.FirstIdentity)
    End Using
    Using ff As New FragmentedFile(file.TempPath, 512)
        Assert.AreEqual(id, ff.FirstIdentity)
        Using io As Stream = ff.Open(id, FileAccess.Read)
            Assert.AreEqual(guid, PrimitiveSerializer.Guid.ReadFrom(io))
        End Using
    End Using
    Using ff As New FragmentedFile(file.TempPath, 512, 10, 10, FileAccess.Read, FileShare.None, _
        FileOptions.None)
        Assert.AreEqual(id, ff.FirstIdentity)
        Using io As Stream = ff.Open(id, FileAccess.Read)
            Assert.AreEqual(guid, PrimitiveSerializer.Guid.ReadFrom(io))
        End Using

        AssertThrows(Of InvalidOperationException)(Function() Do
            ff.Open(id, FileAccess.Write).Dispose()
        End Function)
    End Using
End Using