Próbuję skopiować wszystkie pliki bazy danych z poprzedniej instalacji do nowej instalacji, która ma nową nazwę ścieżki. Problem polega na tym, że instalator nie zna nazw plików bazy danych, więc próbuję użyć znaku wieloznacznego.

Próbowałem użyć TFileStream.Create (), ale to było wyszukiwanie pojedynczego pliku, takiego jak „* .mdb”, i ciągle otrzymywałem błąd mówiący, że nie może znaleźć tego pliku. Próbowałem również użyć FileCopy (), ale wydaje się, że po prostu zawodzi i przechodzi dalej. Próbowałem nawet użyć Exec () do uruchomienia go za pomocą wiersza poleceń, ale zamroziłoby to instalację.

Długo szukałem w Internecie odpowiedzi i przeczytałem wiele dokumentacji. Muszę tylko wiedzieć, jak mogę użyć znaku wieloznacznego do kopiowania plików o nieznanych nazwach. Poniżej znajdują się przykłady tego, co próbowałem.

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;

FileCopy ()

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

Wiersz poleceń

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