Gerekli olan FileSystemEx.dll dosyasını indirip C:\Windows\System32 klasörüne
kopyalamak ve VBA'de referans olarak mdb'ye eklemek gerekiyor.
İlgili DLL dosyasını aşağıdaki konudan indirebilirsiniz.
Dosya Arama Örneği (uzantısına göre)
Örnek kullanımı ise şu şekilde:
Kod:
Dim fs, fn_src, fn_des
Set fs = CreateObject("Scripting.FileSystemObject")
fn_src = "C:\EskiDosya.txt"
fn_des = "C:\YeniDosya.txt")
fs.CopyFile fn_src, fn_des, True