Estoy intentando copiar todos los archivos de base de datos de una instalación anterior a una nueva instalación, que tiene una nueva ruta de acceso. El problema es que el instalador no sabrá los nombres de los archivos de la base de datos, por lo que estoy tratando de usar un carácter comodín.

Intenté usar TFileStream.Create (), pero esto buscaba un solo archivo, como "* .mdb", y recibí un error que decía que no podía encontrar ese archivo. También intenté usar FileCopy (), pero parece que simplemente falla y sigue adelante. Incluso intenté usar Exec () para ejecutarlo a través de la línea de comandos, pero simplemente congelaría la instalación.

He buscado en línea durante mucho tiempo una respuesta y leí un montón de documentación. Solo necesito saber cómo puedo usar un carácter comodín para copiar archivos con nombres desconocidos. A continuación se muestran ejemplos de lo que he intentado.

TFileStream.Create ()

    OldDBs := 'C:\Users\seang\Desktop\Old\*.mdb';
    NewDBs := 'C:\Users\seang\Desktop\New\*.mdb';
    SourceDB:= TFileStream.Create(OldDBs, fmOpenRead);
    DestDB:= TFileStream.Create(NewDBs, fmCreate);
    DestDB.CopyFrom(SourceDB, SourceDB.Size);
    SourceDB.Free;
    DestDB.Free;

Copia de archivo()

    FileCopy('C:\Users\seang\Desktop\Old\*.mdb', 'C:\Users\seang\Desktop\New\*.mdb', True);

Línea de comando

    Exec('cmd.exe', 'COPY "C:\Users\seang\Desktop\Old\*.mdb" "C:\Users\seang\Desktop\New\*.mdb"', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);