AccessTr.neT
Doküman kopyalama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Doküman kopyalama (/konu-dokuman-kopyalama.html)

Sayfalar: 1 2


Doküman kopyalama - mustafa_atr - 26/01/2010

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


Cvp: Doküman kopyalama - Nurullah_Serdar - 26/01/2010

FileCopy yer, yeniyer

yer dosyanın yeri yeni yer kaydedeceğin yer


Cvp: Doküman kopyalama - Seruz - 26/01/2010

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




Cvp: Doküman kopyalama - Nurullah_Serdar - 26/01/2010

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.


Cvp: Doküman kopyalama - mustafa_atr - 26/01/2010

Seruz hocam söylediğiniz metodla işlem tamamdır Img-grin
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


Cvp: Doküman kopyalama - Nurullah_Serdar - 26/01/2010

Dim yer, yeniyer As String
yer = "C:\deneme.txt"
yeniyer = "D:\deneme.txt"
FileCopy yer, yeniyer
bu şekilde kullanılıyor