Selamlar,
Accesste, hard disk üzerinde bulunan bir dokumanın, diskin başka bir dizinine kopyalanmasını nasıl sağlaya biliriz?
Form üzerinden dokuman seçmeyi hallettim, ancak seçtiğim dokumanı kopyalamamı sağlayacak kodu bulamadım
FileCopy yer, yeniyer
yer dosyanın yeri yeni yer kaydedeceğin yer
Dosya işlemlerini FileSystemObject nesnesini kullanarak yapabilirsiniz.
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
seruz hocam benim dediğim yöntem doğru değilmi.
ben o kodla ağ üzerinden bile dosya kopyalayabiliyorum:S
bu arada yeni dizin oluşturmak istersen
If Dir( "C:\PBS", vbDirectory) = "" Then ' C sürücüsü içinde PBS klasörü yoksa
MkDir "C:\PBS" ' C sürücüsü içinde bu klasörü oluştur
End If
bu kodları kullanabilirsin.
Seruz hocam söylediğiniz metodla işlem tamamdır
ancak
fn_des = "C:\YeniDosya.txt")
Bu satırın sonundaki parantez fazla olmuş, onu silince çalıştı
Nurullah hocam sizin metodu nasıl kullanacağımı tam olarak anlamadım
İlginize teşekkürle
Dim yer, yeniyer As String
yer = "C:\deneme.txt"
yeniyer = "D:\deneme.txt"
FileCopy yer, yeniyer
bu şekilde kullanılıyor