Sayın ates2014,

Alıntı:Rica etsem 27. mesajdaki eki indirip denermisiniz,

İfadenize yönelik olarak;

Bir önceki mesajda da belirtildiği üzere,imkan ve zaman yetersizliği gerekçesi ile buna fırsatım olmamaktadır fakat,şunu yapabilirim:
Eğer klasör oluşturma konusunda bir soruna maruz kalıyorsanız,alternatif olması adına;

MkDir CurrentProject.Path & "\gecici\"

 

GKlasor = Environ("TEMP")

GDosyaNo = Format(Now(), "ddmmyyyyhhnnss")

GDosyaYolu = GKlasor & "\AccessTrneT" & GDosyaNo & "\"

GSablon = CurrentProject.Path & "\personelbilgileri.doc"

 

If FolderExists(GDosyaYolu) = False Then

MkDir GDosyaYolu

End If

kodlarının iptal edilip yerine,

GDosyaYolu = CurrentProject.Path & "\gecici\"

GSablon = CurrentProject.Path & "\personelbilgileri.doc"

If Dir(GDosyaYolu) = Empty Then

    MkDir GDosyaYolu

End If

ya da,

If Len(Dir(GDosyaYolu, vbDirectory)) = 0 Then

MkDir GDosyaYolu

End If

Kodlarının eklenmesi sureti ile denemek için kullanabilirsiniz.

bilginize…iyi çalışmalar,saygılar.