combobox1'e yazılı olan dosyayı nasıl başka klasöre kopyalarım ?

[mrt]

Selamlar,

c:\mtyf klasöründen aşağıdaki kodlar ile dosyalari listeletmekte ve seçilen dosyada makro çalıştırmaktayım.

Seçilen dosyayı Makro çalışması bittikten sonra C:\mtyf_arsiv klasörüne nasıl Cut - Paste yaparım.

İşlemi biten dosya c:\mtyf klasöründen silinecek. ve c:\mtyf_arsiv klasörüne kopyalanacak.

Yardımlarınız içi Şimdiden teşekkür ederim.



Private Sub CommandButton4_Click()
Workbooks.Open Filename:="C:\MTYF\" & ComboBox1.Value
Application.Run "mtyf_makrolar.xls!sip_olustur"
End Sub


Private Sub UserForm_Initialize()
dosya = Dir("C:\Mtyf\")
Do While dosya <> ""
ComboBox1.AddItem dosya
dosya = Dir
Loop
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kod ile taşıyabilirsiniz.

tasi = CreateObject("Scripting.FileSystemObject").MoveFile("C:\MTYF\" & ComboBox1.Value, "C:\mtyf_arsiv\")

Not: taşınacak dosya kapalı olmalıdır.

 

[kmlpyrz]

Levent Bey size nasıl teşekkür edeceğimi bilmiyorum. İlginiz ve yardımlarınız, tüm hayırlı dualarınızın kabulü ile karşılık bulur inşallah.

 

[mrt]

emeğinize sağlık;

Üstad nasıl teşekkür edeceğimi bilemiyorum ? Sizlere.

Allah (CC) Yar ve Yardımcınız olsun.