KLASÖR KOPYALAMA VE İSİM DEĞİŞTİRME

[esterabimm]

Merhabalar;

göre mevcutta var olan(c:\yonetim\) klasörü içindeki şablon adlı klasörümü ve içindekileri c:\yonetim\kayıt altındaki klasörün içine kopyalarak klasor ismini combobaxtan alarak değiştimesini istiyorum.

şimdiden teşekjkurler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub CommandButton1_Click()
    If ComboBox1.Value <> "" Then
        With VBA.CreateObject("Scripting.FileSystemObject")
            .CopyFolder "C:\yonetim\şablon", "C:\yonetim\kayıt\" & ComboBox1.Value
        End With
        MsgBox "Klasör kopyalanmıştır.", vbInformation
    Else
        MsgBox "Lütfen klasör issmi giriniz!", vbCritical
    End If
End Sub

 

[esterabimm]

Elinize sağlık korhan hocam tam istediğim gibi olmuş.