MkDir ile VBA Üzerinden Yeni Klasör Açmak

Klasör Yaratma

Her ay yeni bir klasör açma derdine son. Kod bunu sizin için denetler ve klasör yoksa oluşturur.

VBA Kodu:

Sub KlasorYarat()
    Dim yol As String
    yol = "C:\" & Format(Date, "mmmm_yyyy")
    If Dir(yol, vbDirectory) = "" Then
        MkDir yol
        MsgBox yol & " klasörü oluşturuldu!"
    End If
End Sub

Ne Göreceksiniz? C sürücünüzün içine anında "Ekim_2026" adında yepyeni bir Windows klasörü açılacaktır.