oprette selv en ny fil

Public Sub CreateNew(ByVal bd As String)

        Dim t As Integer = 1
        Dim e As Integer = 1

        Do Until t = 12

            If DateTime.Today() = "22-06-2007" Then


                System.IO.File.Copy(("./App_Data/DontDelete/NyDatabase.mdb"), ("./App_Data/" & DateTime.Today() & ".mdb"), True)


            End If

        Loop

    End Sub

f.eks. kan man lave det sådan

og hvordan skal man lave en script der hele tiden tjekker denne function om den er true ??