Private Sub CreateDeleteFile_Click()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Dim oFile As clsD3File

Dim aTimeDate As New clsD3DynamicArray

Set oConn = oEnv.brOpenConnection("ODBC", "production;UID=dm;ACCOUNT=sqldemo”)

Set oFile = oConn.brCreateFile("", "daily.log", 3, 31)

aTimeDate.brCString = oConn.brTimeDate

oFile.brWrite aTimeDate, "1"

...

oConn.brDeleteFile "daily.log"

oEnv.brCloseConnection oConn

Set aTimeDate = Nothing

Set oEnv = Nothing

End Sub