---

Hej NG

Jeg har et problem/opgave som jeg ikke kan få løst og søger derfor noget
hjælp her igennem.

Jeg har 2 foldere, Folder1 og Folder2 med autocadfiler.

Folder1 indeholder i roden én lang række af navngivet Autocadfiler som er
oversat til Russisk.

Folder2 indeholder mange underliggende foldere (folderstruktur), som igen
indeholder de samme filer som folder1, men er på engelsk.

Jeg skal bruge et program, en batchfil, eller et VB program, som kan finde
og erstatte/overskrive de engelske Autocad filer med de russiske Autocad
filer.

De engelske Autocad filer, er navngivet præcist som de engelske, så det må
være noget med at lavet et program som gør følgende :

1. Find første fil i Folder1 og find samtlige filer med samme navn i
Folderstrukturen under Folder 2 og erstat
2. Find anden fil i Folder1 og find alle filer med samme navn i
Folderstrukturen under Folder 2 og erstat
3. Find tredie fil i Folder1 og find alle filer med samme navn i
Folderstrukturen under Folder 2 og erstat
4.
*
*
*
x1. Find sidste fil i Folder1 og find alle filer med samme navn i
Folderstrukturen under Folder 2 og erstat
x2. Medel at sidste fil er fundet og erstattet.
x3. Oplys om der er filer under folderstruktur Folder2 som ikke er blevet
erstattet/fundet.

Er der nogen som har en ide om hvordan sådan noget løses ?

På forhånd tak

Leon

---

Nedenstående batch mellem de stiplede linier burde virke hvis folder1
og folder2 er i samme niveau, og batch-filen gemmes i niveauet over. I
min test ligger batch-filen i C:\TEMP og folder1/folder2 derunder.
Dette giver så følgende resultat:

Checking folder1\000.txt
Checking folder1\111.txt
Copying folder1\111.txt to C:\TEMP\folder2\proj1\111.txt
Checking folder1\222.txt
Copying folder1\222.txt to C:\TEMP\folder2\proj2\222.txt
Checking folder1\333.txt
Copying folder1\333.txt to C:\TEMP\folder2\proj3\333.txt
Checking folder1\444.txt
Copying folder1\444.txt to C:\TEMP\folder2\proj1\444.txt
Checking folder1\555.txt
Copying folder1\555.txt to C:\TEMP\folder2\proj2\555.txt
Finished file check and copy

List of files not replaced
C:\TEMP\folder2\proj1\777.txt not replaced
C:\TEMP\folder2\proj2\888.txt not replaced
C:\TEMP\folder2\proj3\666.txt not replaced
C:\TEMP\folder2\proj3\999.txt not replaced

Press any key to exit

-------------------------------------------------------------
@copy nul f2list.txt >nul
@copy nul f2replaced.txt >nul
@for /r folder2 %%i in (*.*) do @echo %%i >>f2list.txt
@for %%i in (folder1\*.*) do @(
@echo Checking %%i
@findstr /i "%%~ni%%~xi" f2list.txt >f1list.txt
@if not errorlevel 1 (
@for /f %%j in (f1list.txt) do @(
@echo Copying %%i to %%j
@copy %%i %%j /y >nul
@echo %%j >>f2replaced.txt
)
)
)
@echo Finished file check and copy
@echo.
@echo List of files not replaced
@for /f %%i in (f2list.txt) do @(
@findstr /i "%%~ni%%~xi" f2replaced.txt >nul
@if errorlevel 1 @echo %%i not replaced
)
@echo.
@echo Press any key to exit
@pause >nul
-------------------------------------------------------------

--
/klaus