Aynı isimli Klasör var ise üzerine kaydet

[ÖZLÜCE]

Merhaba

Set Klasör = CreateObject("Scripting.FileSystemObject")
Klasör.moveFolder yolk & .Text, yolydk & .Text

Makro doğru çalışıyor, Fakat klasörün taşınacağı adreste, Aynı isimde klasör varsa klasörü taşımıyor (üzerine yazmasını istiyorum).

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

 

[hamitcan]

Sub Klasor_kopyala()
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\YeniKlasor", "C:\EskiKlasor", OverWriteFiles
End Sub

şeklinde deneyin.

 

[ÖZLÜCE]

Hamitcan hocam ilginize teşekkür ederim.

kodu bu şekilde denedim fakat olmadı

Sub Klasor_kopyala()
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder yolk & .Text, yolydk & .Text,OverWriteFiles

End Sub

const için başka bir tanımlama gerekirmi acaba?

 

[hamitcan]

objFSO.CopyFolder yolk, yolydk ,OverWriteFiles

sadece klasör isimlerini girmelisiniz.
".Text" nedir anlamadım ?

 

[ÖZLÜCE]

Private Sub şantiyesil_cmd_Click()

'listede seçili şantiyeye ait klasörü sil'

Dim fl As Object
Dim yolk As String
Dim yolydk As String

Set fl = CreateObject("Scripting.FileSystemObject")
yolk = ("C:\mc.İnşaat\mc.Metraj\")
yolydk = ("C:\mc.İnşaat\Şnt.Yedek\")

With şantiye_comb
mesaj3 = MsgBox(.Text + " SİLİNECEK EMİNMİSİNİZ ?", vbOKCancel !!")
If mesaj3 = vbCancel Then GoTo çık

'şantiyeyi yedek klasörüne taşı'
If Not fl.FolderExists(yolydk) Then
fl.CreateFolder (yolydk)
End If

fl.moveFolder yolk & .Text, yolydk & .Text

End With

çık:
Set fl = Nothing
yolk = vbNullString
yolydk = vbNullString

klasör_listele
ydkklasör_listele

 

[hamitcan]

"şantiye_comb" nedir amlayamadım?

fl.moveFolder yolk & [B].Text[/B], yolydk & [B].Text[/B]

koyu olan kısımları, kaldırıp, denediniz mi ?

fl.moveFolder yolk, yolydk

 

[ÖZLÜCE]

Hocam, denedim olmuyor.Klasörün taşınacağı yerde aynı isimli klasör yoksa, Klasörü taşıyor. Var ise işlem yapmıyor.
"şantiye_comb" ise şantiye_comb isimli kutudaki seçili klasör adı

 

[hamitcan]

Kısaca, "şantiye_comb" isimli bir klasörünüz var, ve bu klasörü bir yere taşımak istiyorsunuz ve taşımak istediğiniz yerde de bu klasörden varsa, bu klasörün üzerine kopyalasın istiyorsunuz.
Ben denedim, çalışıyor.

Sub Klasor_tasi()
Const OverWriteFiles = True
Yol = "C:\deneme\"'Yolu kendinize göre uyarlayın.
Yol2 = "C:\deneme\deneme\"'Yolu kendinize göre uyarlayın.
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Yol2 & "Yeni Klasör") Then
    objFSO.copyFolder Yol & "şantiye_comb", Yol2 & "şantiye_comb", OverWriteFiles
End If
End Sub

 

[ÖZLÜCE]

Hocam, şantiye_comb userformdaki bir combobox ve taşınacak klasör adı comboboxta seçili olan klasör adı. Klasör adı değişgen

 

[hamitcan]

"şantiye_comb.text" şeklinde deneyin.

 

[ÖZLÜCE]

Hocam çok teşekkür ederim, Emeğine sağlık