Klasörden klasöre dosya kopyalama

[cout(h)ane]

Herkese merhaba,
Aşağıdaki kodlama ile bir klasöreden diğer klasöre dosya kopyalaması yapıyorum.

Talebim şu: Kaynak ve hedef dosyalarını kod satırında yazarak değil de, Windows'un dosya seç penceresi ile seçebilmem için kodlamada nasıl bir revizyon yapmalıyım? (Application.GetOpenFilename ile denedim ama beceremedim)

Yardımcı olabilirseniz sevinirim.
----------------
Sub KOPYALA()
On Error Resume Next
For X = 2 To [a65536].End(3).Row
Cells(X, 1).Select
Source = "C:\MILK-RUN\yeni2\" & Cells(X, 1)
target = "C:\MILK-RUN\yeni2\" & Cells(X, 10) & "\" & Cells(X, 1)
FileCopy Source, target
Next X
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub KOPYALA()
On Error Resume Next
For X = 2 To [a65536].End(3).Row
Cells(X, 1).Select
[B][COLOR=blue]dosya = Application.GetOpenFilename
If dosya <> False Then exit sub[/COLOR][/B]
Source = [COLOR=blue][B]dosya[/B][/COLOR] & Cells(X, 1)
target = [COLOR=blue][B]dosya[/B][/COLOR] & Cells(X, 10) & "\" & Cells(X, 1)
FileCopy Source, target
Next X
End Sub

 

[cout(h)ane]

Sevgili leventm,

Bu şekilde yaptığımda, seçmek istediğim klasör içerisinde eğer hiçbir dosya yok ise GetOpenFilename ile klasörü seçemiyorum..

 

[Levent Menteşoğlu]

Klasör seçmek için aşağıdaki gibi deneyin.

Sub KOPYALA()
On Error Resume Next
For X = 2 To [a65536].End(3).Row
Cells(X, 1).Select
[B][COLOR=blue]Set yol = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
klasor = yol.Items.Item.Path
[/COLOR][/B][B][COLOR=blue]If klasor <> False Then exit sub[/COLOR][/B]
Source = [B][COLOR=blue]klasor & "\"[/COLOR][/B] & Cells(X, 1)
target = [COLOR=blue][B]klasor & "\"[/B][/COLOR] & Cells(X, 10) & "\" & Cells(X, 1)
FileCopy Source, target
Next X
End Sub

 

[kykbt]

Arkadaşlar Merhaba;

Yukarıda ki kodları kullanarak Kendi bilgisayarımdaki

G:\Stok\HAR.XLS adlı bir Excell Dosyasını
\\Ana_serv\Stok\HAR.XLS aynı adla server,a kopyalamak istiyorum

Beceremedim!
Ayrıca mümkünse değiştireceği dosya kendisinden daha güncel ise değişim yapılıp yapılmayacaını sorsun. ona göre değiştirsin.

 

[kykbt]

Arkadaşlar Merhaba;

Yukarıda ki kodları kullanarak Kendi bilgisayarımdaki

G:\Stok\HAR.XLS adlı bir Excell Dosyasını
\\Ana_serv\Stok\HAR.XLS aynı adla server,a kopyalamak istiyorum

Beceremedim!
Ayrıca mümkünse değiştireceği dosya kendisinden daha güncel ise değişim yapılıp yapılmayacaını sorsun. ona göre değiştirsin.

Arkadaşlar yukarıdaki sıkıntımı hala cözemedim yine gerekli hale geldi. Bir el atan cıkarmı?
Burada G diski usb olarak bağlı harici disktir fark edermi bilmiyorum.
Şindiden teşekkürler ederim