Soru Klasör İçindeki Dosyaları Kes, Kopayala, Yapıştır

[ragnorak]

If XED_FORM.MultiPage1.Value = 2 Or IS_DOSYALARI.Visible = True Then
fx = XED_FORM.TextBox3x.Value
Else
fx = XED_FORM.TextBox15x.Value
End If

If FOLDER.LIST(FOLDER.ListIndex, 0) = "CAD DOSYALARI" Then: ktx = "CAD DOSYALARI"
If FOLDER.LIST(FOLDER.ListIndex, 0) = "BELGELER" Then: ktx = "BELGELER"
If FOLDER.LIST(FOLDER.ListIndex, 0) = "KESİM LİSTESİ" Then: ktx = "KESİM LİSTESİ"
If FOLDER.LIST(FOLDER.ListIndex, 0) = "PROJE" Then: ktx = "PROJE"
If FOLDER.LIST(FOLDER.ListIndex, 0) = "GÖRSEL" Then: ktx = "GÖRSEL"
If FOLDER.LIST(FOLDER.ListIndex, 0) = "MALİYET" Then: ktx = "MALİYET"
If FOLDER.LIST(FOLDER.ListIndex, 0) = "DİĞER" Then: ktx = "DİĞER"

MyFolder = fx & "\" & URUN_KODU.Value & "\" & ktx

Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Src = MyFolder & "\" & ListBox1.Column(0, i)

End If
Next

Yukarıdaki şekilde yolu belli olan "Src" Dosyalarını kopyalamak veya kesmek istiyorum ama başka bir klasöre değil. Onu daha sonra seçeciğim bir klasöre buton yardımı ile yapıştıracağım. Yani windowsta yaptığımız gibi önce kopyalayıp veya kesip hafızaya alacam. Sonra başka bir yere yapıştıcam.

objFSO.CopyFile MyFile, path & Foldername1 & "\" & Foldername2 & "\"

bu şekilde olmayacak yani