Fråga : VBA-logik

Jag behöver en lappa av kodifierar för att göra efter….,
Look i qry_DocumentRegister_Redundant i kolonnen Filename
Check som ser, om varje av filenamesna finns i några av 5 If för
c:\xyz\e för
c:\xyz\d för
c:\xyz\c för
c:\xyz\b för arkivspecified
c:\xyz\a som de gör den flyttningen sparar därefter till
Else för directory
c:\abc\a gör nothing

One annat problem, filenamen i queryen inkluderar inte en filtypändelse endast filenamen sig själv, och sparar i arkivet kunde vara någon filetype.

Thanks

" klar "

Svar : VBA-logik

Det låter något liknande filenamen som lagras i ditt bordlägger innehåller redan perioden (.) vilka uppsättningar det av från sparaf8orlängningen eller det filenamen som lagras i ditt, bordlägger, är inte färdig.  Försök:

strFileName = Dir (”f:\Test Directory\Live\” & FName & ”*.*”) som detta inte fungerar

Resonera det finner samma sparar varje tid är, att du inte tar bort spara som du grundar precis, dig kopierar den.  I ditt original posta dig sade: ”Om de gör därefter, den flyttningen sparar till arkivet”.  Men FileCopyen befaller gör inte flyttningen spara, det kopierar precis den.  , varför i min nyast kodifiera dig att I ska, se att jag bytte namn på spara, som faktiskt flyttningar det till det nya arkivet.

Namnge ”C:\Access\test\Source\” & strFileName som ”C:\Access\test\Destination\” & strFileName

Också om du använder Diren () fungera och passera den en foldername varje gång, det ska retur som första sparar i mappen, varje tid.  Om du önskar faktiskt att visa alla av sparar i en mapp, dig skulle måste att använda något som är lik:

strFileName = Dir (”f:\Test Directory\Live”)
debug.print-strFileName
Gör
    strFileName = Dir ()
    debug.print-strFileName
Kretsa stunder Len (strFileName) > 0

Också kodifiera du använder det ska inte sökandet för en understödja eller sparar third med samma sparar f8orlängning.  Den ska precis förbikoppling de.  Om det inte är en utfärda därefter därefter, lämna ditt för att kodifiera det är långt.  Om det kunde vara en utfärda därefter dig behov att se min nyast, kodifiera segmenterar och kopierar den logik.