Listar archivos de una carpeta

Pregunta:

¿Cómo obtengo un listado de los archivos que se encuentran dentro de cierta carpeta/directorio, usando un comodín/filtro?

Por ejemplo, todos los archivos '*.txt' en 'C:\Temp.

Respuesta:

En CACHE:

Puedes usar la consulta de clase FileSet de %Library.File.

Aquí puedes ver el ejemplo de un código donde se usa (también se adjunta):

run(pDir,pFileSpec)
      Set tRS=##class(%ResultSet).%New("%Library.File:FileSet")

      Set tSC=tRS.Execute(pDir,pFileSpec)
      Write "Name",?30,"Date Modified",?53,"Type",!
      Write "--------------------------------------------------------------------------",!
      While tRS.Next() {
            Write tRS.Get("Name"),?30,tRS.Get("DateModified"),?53,tRS.Get("Type"),!
      }

Y este es un ejemplo de ejecución: 

USER>do run^testFileSet("C:\Temp","*.txt")
Name                          Date Modified          Type
--------------------------------------------------------------------------
C:\Temp\hl7.txt               2014-07-30 12:09:18    F
C:\Temp\hsaa_msgs.txt         2015-06-25 13:02:16    F
C:\Temp\JSONRESTProxy_10.txt  2014-05-04 14:29:04    F
C:\Temp\JSONRESTProxy_8.txt   2014-05-04 14:28:09    F
C:\Temp\myTestFile2.txt       2014-05-05 09:19:31    F
C:\Temp\newStream.txt         2015-07-09 09:41:59    F
C:\Temp\oldStream.txt         2015-07-09 09:41:27    F
C:\Temp\tcpTrace.txt          2014-05-29 12:13:11    F
C:\Temp\tempadts.txt          2015-06-22 08:35:03    F
C:\Temp\WSLic.txt             2014-06-08 10:34:13    F

En Ensemble:

Puedes usar el File Outbound Adapter en una BO, invocando al método NameList() del adaptador.

El siguiente es un ejemplo de una BO que lo usa (también se adjunta):

Class Play.BO.FileOperation Extends Ens.BusinessOperation
{
Parameter ADAPTER = "EnsLib.File.OutboundAdapter";
Property Adapter As EnsLib.File.OutboundAdapter;
Parameter INVOCATION = "Queue";
Method FileList(
      pRequest As Ens.StringRequest,
      Output pResponse As Ens.Response) As %Status
{
      #dim fileList As %ListOfDataTypes = ""
      Set status = ..Adapter.NameList(.fileList,pRequest.StringValue)
      // Returns list of: Filename;Type;Size;DateCreated;DateModified;FullPathName
      //                  1        2    3    4           5            6
      If $$$ISOK(status)&&$IsObject(fileList) {
            For i=1:1:fileList.Count() {
                  Set fileInfo = fileList.GetAt(i)
                  $$$LOGINFO("Name: "_$Piece(fileInfo,";",1)_" / DateModified: "_$Piece(fileInfo,";",5)_" / Type: "_$Piece(fileInfo,";",2))
            }
      }
      Quit status
}

Y este es un ejemplo de la salida del Registro de eventos:

Se debe tener en cuenta que el método adaptador usa la consulta %File:FileSet en segundo plano.