(19/08/2021, 11:49)Mehmet007 yazdı:

(18/08/2021, 20:31)lemoncher2 yazdı:

MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "-" & Me.dosya_adi & "-" & Me.dosya_yil

 MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"

Bu kod ile klasör oluşturabilirsiniz. Herhangi bir Buton oluşturup "Tıklandığında" olayına bunu yaptırınız.

Teşekkür ederim. Bu kod çok işime yaradı.

Private Sub klasor_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Private Sub dosya_adi_AfterUpdate()
MkDir CurrentProject.Path & "\" & Me.dosya_adi & "-" & Me.dosya_yil
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"
End Sub

Bu şekilde klasör oluşturmak istiyorum. Fakat dosya_adi klasörünü klasor_adi klasörünün içine nasıl açtırabillirim acaba

MkDir CurrentProject.Path & "\" & Me.klasor_adi & "-" & Me.klasor_yil & "\" & Me.dosya_adi
MsgBox "Başarılı.", vbDefaultButton1 + vbInformation, "BİLGİ"


Şeklinde denermisiniz