Export SQL Query Objects from Microsoft Access 2013

ExportQueryObjs.vb

' http://msdn.microsoft.com/en-us/library/office/gg278834(v=office.15).aspx
Sub ExportQueryObjs()
    ' File System Properties
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' DAO / Query definition properties
    ' http://stackoverflow.com/questions/20252599/how-do-you-export-ms-access-query-objects-to-text-file
    Dim def As DAO.QueryDef
    Dim defCol As DAO.QueryDefs
    Set defCol = CurrentDb.QueryDefs
    
    For Each def In defCol
        Set f = fs.OpenTextFile("C:\" & def.Name & ".sql", ForWriting, TristateFalse)
        f.Write def.SQL
        f.Close
        'Debug.Print def.Name & vbCrLf;
        'Debug.Print def.SQL
    Next
    
End Sub