Pytanie : VBA Logika

I potrzebować kawałek kod the następujący….
Look w qry_DocumentRegister_Redundant w szpaltowy Filename
Check jeżeli ruszać się the Filenames istnieć w jakikolwiek 5 książka telefoniczna specified
c:\xyz\a
c:\xyz\b
c:\xyz\c
c:\xyz\d
c:\xyz\e
If wtedy ruszać się the kartoteka directory
c:\abc\a
Else robić nothing

One inny problem, the Filename w the zapytanie zawierać kartoteka typ tylko the Filename kończyć i the kartoteka w the książka telefoniczna móc jakaś filetype.

Thanks

Odpowiedź : VBA Logika

Ono brzmieć jak the filename który przechować w twój stół już zawierać the okres (.) który set ono daleko od the kartoteka rozszerzenie, lub ono the filename przechować w twój stół być zupełny.  Próba:

strFileName = Dir ("f:\Test Directory\Live\" & FName & "*.*") *.*") pracować

The powód ono znajdować the ten sam kartoteka każdy czas być że ty usuwać the kartoteka ty właśnie zakładać, ty kopiować ono.  W twój oryginalny poczta ty powiedzieć: "Jeżeli wtedy ruszać się the kartoteka książka telefoniczna".  Ale the FileCopy rozkaz ruszać się the kartoteka, ono właśnie kopiować ono.  Że I dlaczego w mój niedawny kod ty widzieć że I przemianowywać the kartoteka, che właściwie ruszać się ono the nowy książka telefoniczna.

Wymieniać "C:\Access\test\Source\" & strFileName "C:\Access\test\Destination\" & strFileName

Także, jeżeli ty używać the Dir () funkcja i przechodzić ono foldername także, ono wracać the pierwszy kartoteka w the falcówka, każdy czas.  Jeżeli ty właściwie chcieć ty the kartoteka w falcówka, ty musieć musieć jak:

strFileName = Dir ("f:\Test Directory\Live ")
debug.print strFileName

    strFileName = Dir ()
    debug.print strFileName
Zapętlać podczas gdy Len (strFileName) > (0)

Także, the kod ty używać szukać dla drugi lub trzeci kartoteka z the ten sam kartoteka rozszerzenie.  Ono właśnie obchodzić.  Jeżeli być być zagadnienie wtedy wtedy opuszczać twój kod the sposób ono być.  Jeżeli logika móc zagadnienie wtedy ty potrzebować mój niedawny kod segment i ten logika.