I have this code to copy all querys I don't use to a txt file


all i do is put a ~~ in the front of the name then I just run the the below code and saveit to a text file (just in case I still want it) LOL

Code:
Sub DELETE_QUERYS()
Dim tb As QueryDef
Dim qdfNew As QueryDef
Dim qdfLoop As QueryDef
Dim sql As String
Dim db As DataBase
Set db = CurrentDb
With db
    For Each qdfLoop In .QueryDefs
        If Left(qdfLoop.Name, 2) = "~~" Then
            Set qdfNew = db.QueryDefs(qdfLoop.Name)
            Call Write_it("E:\Data\Querys\SSNNZ Screens Querys.txt", " ", False)
            Call Write_it("E:\Data\Querys\SSNNZ Screens Querys.txt", ">>> " & FindAndReplace(qdfLoop.Name, "~~", "") & " <<<", False)
            Call Write_it("E:\Data\Querys\SSNNZ Screens Querys.txt", " ", False)
            sql = qdfNew.Properties("SQL")
            Call Write_it("E:\Data\Querys\SSNNZ Screens Querys.txt", sql, False)
            Call Write_it("E:\Data\Querys\SSNNZ Screens Querys.txt", String(25, "#"), False)
            .QueryDefs.Delete qdfLoop.Name
        End If
    Next
End With
End Sub
so My question is can do the same for reports (I know can't writeit to text file)
so my thinking is writing it to a Blank (JUSTINCASEIWANTIT.MDB) file


any idea on this.