Kezdőlap › Fórumok › Excel programozás › File másolása › Hozzászólás: File másolása
2016-08-26-22:19
#2912
Szia!
Itt azt látom problémának, hogy a másolásnál a célfájl esetén szinte biztosan nme használható joker karakter. De az is lehet, hogy a forrásfájl esetében sem.
A dátum formát különben egyszerűbben is megadhatod:
format(date,"yyyy-mm-dd")
A másik kérdés, hogy a fenti módszerrel biztosan 1 db fájlra tudod-e szűkíteni a talált fájliok számát. A Filecopy csak egy fájlt tud egy időben másolni.
Ha a válasz IGEN, akkor Én azt csinálnám, hogy egy DIR paranccsal, * joker karakterel lekérném a fájl valódi nevét, azután már másolhatom.
Sub masol()
mainap = Format(Date, "yyyy-mm-dd")
forrasmappa = "c:\ahol_a_fajl_van\"
celmappa = "c:\ahova_masolni_akarod\"
f = Dir("valami_" & mainap & "_utem_2-DOC*.txt")
FileCopy forrasmappa & f, celmappa & f
End Sub
Ez alapján sikerül?
Imre