Проверка, что C / C++ подписал сдвиг вправо, является арифметикой для конкретного компилятора?

1. В окне VB щелкните Tools->References....
2. . В окне «Ссылки» добавьте зависимость Microsoft Scripting Runtime, отметив ее.

Затем этот код экспортирует запросы в файл, подходящий для использования grep на:

Sub ExportQueries()

  Dim fso As New FileSystemObject

  Dim stream As TextStream

  Set stream = fso.CreateTextFile("e:\temp\queries.txt")

  Dim db As DAO.Database
  Dim qdf As DAO.QueryDef

  Set db = CurrentDb()
  For Each qdf In db.QueryDefs

    stream.writeline "Name: " & qdf.Name
    stream.writeline qdf.SQL
    stream.writeline "--------------------------"
  Next qdf
  Set qdf = Nothing
  Set db = Nothing

End Sub