Farklı Kaydetme Sorunu

[Hüseyin61]

Arkadaşlar bu formda farklı kaydet butonu ile gösterilen klasöre kayıt yapıyorum. Ancak 1. kayıttan sonra 2.sine sonuna 1,2,3 gibi rakam ekleyerek tekrar kaydetmesini istiyorum. Ama ikinci kayıtta yol bulunamıyor diye hata veriyor. İnceleyip yardımcı olur musunuz?

 

[Asri]

Arkadaşlar bu formda farklı kaydet butonu ile gösterilen klasöre kayıt yapıyorum. Ancak 1. kayıttan sonra 2.sine sonuna 1,2,3 gibi rakam ekleyerek tekrar kaydetmesini istiyorum. Ama ikinci kayıtta yol bulunamıyor diye hata veriyor. İnceleyip yardımcı olur musunuz?

Klasörün birinde Rehberlik Formları yazıyor bu klasör mevcuttur.
Klasörün diğerinde Dehberlik Formları yazıyor bu klasörü mevcut değildi.

dosyam = "D:\Rehberlik Formları\" & "Öğrenci Gözlem Formu-" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xlsm"
10 If evn.fileexists(dosyam) Then
i = i + 1
dosyam = "D:\Dehberlik Formları\" & "Öğrenci Gözlem Formu-" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xlsm"

 

[Hüseyin61]

Klasörün birinde Rehberlik Formları yazıyor bu klasör mevcuttur.
Klasörün diğerinde Dehberlik Formları yazıyor bu klasörü mevcut değildi.

dosyam = "D:\Rehberlik Formları\" & "Öğrenci Gözlem Formu-" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xlsm"
10 If evn.fileexists(dosyam) Then
i = i + 1
dosyam = "D:\Dehberlik Formları\" & "Öğrenci Gözlem Formu-" & .Range("c5").Value & "_" & .Range("c2").Value & i & ".xlsm"

Nasıl fark edemedim, kendime kızdım. Sizi de yordum. Kusuruma bakmayın lütfen