Vba ile klasör içinde klasör oluşturma

[kalibre101]

Merhabalar klasör içinde klasör oluşturmak istiyorum aşağıdaki kodla sadece 1 klasör oluşturuyor onun içine klasör oluşturamıyorum yardım ederseniz memnun olurum
Sub klasör()
Dim yol As String
yol = "C:\İşletme Proğramı\"
Application.ScreenUpdating = False
If Dir(yol, vbDirectory) = "" Then MkDir yol
End Sub

ben
yol = "C:\İşletme Proğramı\Faaliyet raporu"
şeklinde oluşturmasını istiyorum.
bu yolu kodun içine yazdığımda hata veriyor

 

[Cengiz Demir]

En sona bir tane \ ekleyerek deneyin.

"C:\İşletme Proğramı\Faaliyet raporu\"

Not: Bu yöntem C de İşletme Proğramı klasörü olduğunda çalışır.

Ek: İki klasörü sırasıyla oluşturmak için aşağıdaki kodu kullanabilirsiniz.

Sub klasör()
Application.ScreenUpdating = False
If Dir("C:\İşletme Proğramı\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\"
If Dir("C:\İşletme Proğramı\Faaliyet raporu\", vbDirectory) = "" Then MkDir "C:\İşletme Proğramı\Faaliyet raporu\"
Application.ScreenUpdating = True
End Sub

 

[kalibre101]

En sona bir tane \ ekleyerek deneyin.

"C:\İşletme Proğramı\Faaliyet raporu\"

Not: Bu yöntem C de İşletme Proğramı klasörü olduğunda çalışır.

Denedim mk dır yol kısmında hata verdi
Benim istediğim bu klasörler yok ise olusturmasi

 

[Cengiz Demir]

Denedim mk dır yol kısmında hata verdi
Benim istediğim bu klasörler yok ise olusturmasi

İlk mesaja ekleme yaptım

 

[kalibre101]

İlk mesaja ekleme yaptım

teşekkür ederim oldu

 

[Cengiz Demir]

teşekkür ederim oldu

Rica edeirm